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INTRODUCTION 


The  TACWAR  theater-level  combat  simulation  model  was  developed  by 
the  Institute  for  Defense  Analysis  (IDA)  for  the  Department  of  Defense 
Studies  Analysis  and  Gaming  Agency  (DoD-SAGA).  Presently,  TACWAR  is 
being  maintained  for  SAGA  by  the  Defense  Communications  Agency  Command 
and  Control  Technical  Center  (DCA-CCTC). 

Since  TACWAR  does  allow  theater-level  combat  assessments,  it  is 
being  considered  as  a  prime  candidate  to  provide  results  to  the  "net 
assessment"  task  of  the  Army-sponsored  Theater  Nuclear  Forces  Surviva¬ 
bility  (TNF/S)  program.  A  broad-scoped  program,  TNF/S  encompasses  a 
number  of  major  task  (and  subtask)  areas  including  target  acquisition; 
nuclear-chemical-conventional  kill;  logistics;  combat  degradation; 
unconventional  warfare;  electronic  warfare;  and  command,  control,  and 
communications  degradation  (C^/D). 

Each  of  these  major  areas  of  analysis  is  controlled  by  a  designated 
"lead  element"  who  is  responsible  for  coordinating  and  assessing  that 
portion  of  the  overall  program.  The  author  is  a  member  of  a  team  of  the 
Electronics  Research  and  Developnent  Command;  Harry  Diamond  Laboratories 
(ERADCOM-HDL)  that  is  assisting  the  Combined  Arms  Combat  Development 
Activity  (CACDA),  the  designated  lead  element  for  C^/D. 

A  thorough  analysis  of  TACWAR  revealed  that  very  little  C^  is 
modeled  explicitly.  Consequently,  it  was  decided  that  those  areas 
within  TACWAR  that  are  of  major  interest  and  importance  to  TNF/S-C^/D 
will  be  modified  to  include  C^/D  effects.  This  report  describes  those 
modification  efforts,  including  the  rationale  for  the  modifications,  the 
methodology  employed,  and  the  explicit  FORTRAN  code  changes  that  have 
been  implemented.  Initial  data  values  and  the  results  of  some  sample 
runs  also  are  provided. 


2.  SUMMARY  OF  TACWAR 

In  its  broadest  categories  of  simulation,  TACWAR  can  be  divided  into 
five  major  areas  of  coMjat  or  control:^ 

Air  combat 
Nuclear  combat 
Chemical  combat 

Ground  ( with  air-ground  interaction)  combat 
Theater  control 


^Institute  for  Defense  Analysis  Tactical  Warfare  (TACWAR)  Model, 
Defense  Communications  Agency  CCTC  Computer  System  Manual  CSM  MM  237-77, 
Parts  I,  II,  III  (6  September  1977). 
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Each  of  these  areas  was  analyzed  to  determine  if  C^/D  effects  could  be 
readily  incorporated  into  the  simulation.  The  analysis  is  sxmmarized  in 
the  following  paragraphs. 

2.1  Air  Combat  Simulation 


In  TACWAR,  aircraft,  aircraft  shelters,  and  personnel  are 
stationed  at  specific  airbases.  These  airbase  assets  are  consolidated 
within  specified  geographical  "regions"  of  the  theater  to  establish  a 
"notional"  or  average  airbase.  For  each  of  these  . notional  airbases, 
aircraft  are  allocated  to  specific  missions,  including  close  air  support 
(CAS),  interdiction,  and  airbase  attack.  The  number  of  aircraft 
available  for  these  missions  is  a  function  of  the  operating  capability 
of  the  actual  airbases  and  will  depend  on  C^/D. 

As  a  first  order  effect,  the  dependence  of  airbase  operating 
capability  on  C^/D  can  be  accounted  for  by  the  degradation  function 
currently  available  in  TACWAR.  Other  C^/D  effects  in  the  air  model  such 
as  air-to-air  coordination  and  CAS  communications  are  secondary  TNF/S 
considerations.  Consequently,  no  changes  in  the  air  combat  model  are 
made  to  include  C^/D  explicitly. 

2.2  Nuclear  Combat  Model 


The  nuclear  model  in  TACWAR  includes  an  escalation  process,  a 
prioritized  weapons  assignment  list,  target  acquisition,  a  prioritized 
target  assignment  list,  a  weapon- to- target  selection  process,  and  a 
target  damage  evaluation  process.  Important  C^/D  effects  in  this  model 
include  (  1  )  delays  in  nuclear  escalation  and  in  target  acquisition 
processing  due  to  degraded  C^  and  (2)  lower  effectiveness  of  nuclear 
delivery  means.  Delays  in  nuclear  escalation  and  in  target  acquisition 
can  be  incorporated  into  TACWAR  by  providing  an  explicit  functional 
dependence  of  the  delay  time  with  degradation  of  C^  assets  within  the 
several  areas  (echelons)  of  control  such  as  division,  corps-sector,  and 
theater  delivery  systems.  Similarly,  nuclear  delivery  system 
effectiveness  (availability)  can  be  described  as  a  function  of  C^/D. 

2.3  Chemical  Combat  Model 


The  chemical  model  in  TACWAR  has  essentially  a  one-to-one 
correspondence  with  the  nuclear  mpdel.  Consequently,  those  C^/D  aspects 
described  above  for  the  nuclear  model  have  a  parallel  aspect  for  the 
chemical  model. 

2.4  Ground  Combat  Model 

Ground  combat  in  TACWAR  is  simulated  on  a  division-level 
resolution.  Personnel  and  weapon  system  attrition  and  subsequent 
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movement  of  the  forward  edge  of  the  battle  area  (FEBA)  are  determined  as 
functions  of  the  effectiveness  of  the  divisions  of  the  two  combatant 
sides.  Any  C^/D  within  the  divisions  will  affect  this  combat 
effectiveness,  which  will  then  affect  the  attrition  and  FEBA  movement. 
The  amount  by  which  C^/D  influences  overall  combat  effectiveness  of  a 
division  can  be  provided  by  an  explicit  functional  relationship. 

2 . 5  Theater  Control  Model 

In  TACWAR,  theater  control  includes  division  and  airbase 
resupply,  reinforcement,  replacement,  and  reallocation.  As  in  the 
ground  combat  model  above,  reinforcement  and  replacement  for  divisions 
are  functions  of  division  combat  effectiveness,  which  is  itself 
influenced  by  C^/D.  Division  resupply  and  reallocation  (movement), 
although  strongly  dependent  on  C^/D,  have  not  been  modified. 
Specifically,  the  gross  nature  in  which  TACWAR  simulates  the  movement  of 
entire  divisions  (and  has  no  capability  of  modeling  movement  of  division 
subunits)  is  not  amendable  to  a  C^/D  augmentation.  As  with  the  air 
combat  model,  no  C^/D  augmentation  of  airbase  resupply  and  reallocation 
was  attempted  within  theater  control . 


3.  DETAILS  OF  C^/D  MODIFICATIONS  TO  TACWAR 

The  following  four  major  areas  of  TACWAR  have  been  augmented  to 
include  C^/D  effects: 

Division  combat  effectiveness 

Nuclear  delivery  system  availability 

Nuclear  escalation  state  authorization  delay 

Nuclear  and  chemical  target  acquisition  processing  delay 

In  each  candidate  area  for  C^/D  augmentation  to  TACWAR,  it  is 
necessary  to  specify  C^  equipment  or  processes  that  are  attrited  or 
degraded.  If  these  C^  assets  were  to  be  modeled  explicitly  in  TACWAR, 
it  would  be  necessary  also  to  specify  and  to  explictly  model  the  combat 
by  and  against  these  assets.  In  particular,  the  augmentation  would  have 
to  include  target  acquisition,  weapon'  resource  allocation,  damage 
analysis,  repair-,  and  reconstitution  of  the  C^  assets. 

The  modeling  effort  necessary  to  include  the  above  effects  is  beyond 
the  scope  of  the  present  worlc.  Consequently,  C^  assets  are  not 
explicitly  included  in  the  C^/D  augmentation.  Instead,  other  combat 
assets  that  are  already  incorporated  in  TACWAR  are  employed  as 
surrogates  for  C^  assets.  For  example,  the  surrogates  for  C^  assets 
within  a  division  will  be  the  different  weapons  systems  of  that 
division.  For  a  corps-sector  echelon  and  theater  echelon,  the 
surrogates  will  be  a  mix  of  airbase  assets,  surface-to-surface  missile 
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(SSM)  sites,  and  surface-to-air  missile  (SAM)  sites.  These  surrogates 
will  be  modified  by  appropriate  weighting  factors  in  the  augmentations 
to  realistically  reflect  the  actual  mix  of  assets  at  the  several 
echelons. 

Each  of  the  areas  of  C^/D  augmentation  is  described  in  the  following 
sections.  The  actual  FORTRAN  code  changes  and  augmentations  are  in 
appendix  A  and  are  discussed  as  part  of  the  details  below.  With  this 
description  and  appendix  A,  the  interested  reader  with  a  minimum  of 
effort  may  include  C^/D  effects  into  a  local  version  of  TACWAR. 

3.1  Division  Combat  Effectiveness  Augmentation 

In  TACWAR,  each  combat  division  is  currently  described  by 
effectiveness  parameters  such  as  EFFDD(ID)  and  EFFDA(ID),  where  ID  is 
the  division  identifier  index.  These  parameters  depend  on  degradation 
of  weapons  systems  and  personnel  in  the  division  (compared  with  levels 
given  by  tables  of  organization  and  equipment — TOE),  the  current 
supplies  available  to  the  division,  and  the  current  chemical  posture  of 
the  division. 

For  C^/D  augmentation,  the  division  combat  effectiveness 
parameters  are  modified  by  a  C^/D  multiplying  factor.  This  multiplying 
factor  is  itself  determined  by  a  functional  relationship  between 
decreased  combat  effectiveness  due  to  C^/D  and  decreased  division 
communications  (message  throughput)  capabj,lity.  Similarly,  this 
decreased  division  communications  capability  is  determined  by  a 
functional  relationship  between  itself  and  a  decrease  of  assets 
within  the  division.  Lastly,  the  decrease  in  assets  is  to  be 
determined  by  using  the  degradation  of  surrogate  division  assets  already 
modeled,  these  assets  being  the  several  weapons  systems  belonging  to  the 
division . 


The  general  flow  of  logic  beginning  with  degradation  of 
division  weapons  systems  and  resulting  in  a  division  combat 
effectiveness  C^/D  reduction  factor  is  shown  in  figure  1.  The  actual 
changes  to  the  TACWAR  code  are  shown  in  appendix  A  and  are  discussed 
below. 
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Figure  1.  Logic  flow  algorithm  for 
degradation  of  division 
effectiveness . 


Seven  new  array  variables  are  needed  to  hold  the  user  input 
functional  relationships  and  surrogate  asset  weighting  factors.  These 
array  variables  are  consolidated  into  a  common  block  labeled  TNFSC3. 


NC3DD(L)  contains  the  number  of  function  pairs  XC3DD  and 

L  =  1  to  2  YC3DD  that  describe  the  fxinctional  relationship 

between  the  division  combat  effectiveness 
C^/D  reduction  factor  and  the  decreased  division 
communications  capability  for  each  combatant 
side  indexed  L. 


XC3DD(I,L)  contains  the  Ith  abscissa  point  for  the  function 

I  =  1  to  8  associated  with  NC3DD(L).  The  abscissae  are 

L  =  1  to  2  fractions  of  the  division  communications 

capability  remaining  (0.0  corresponding  to  zero 
capability  and  1.0  corresponding  to  full 
capability) . 
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YC3DD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


NCOMD(L) 

L  =  1  to  2 


XCOMD( I,L) 

I  =  1  to  8 
L  =  1  to  2 


YCOMD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


FCLWL(IW,L) 

IW  =  1  to  10 
L  =  1  to  2 


contains  the  Ith  ordinate  point  for  the 
function  associated  with  NC3DD(L) .  The 
ordinates  are  fractional  reductions  of  division 
combat  effectiveness  d\ie  to  C^/D. 

contains  the  number  of  function  pairs  XCOMD  and 
YCCMD  that  describe  the  functional  relationship 
between  decreased  division  communications 
capability  and  the  degradation  of  division 
assets  for  each  combatant  side  indexed  L. 

contains  the  Ith  abscissa  point  for  the  function 
associated  with  ircOID(L) •  The  abscissae  are 
fractions  of  division  assets  remaining  (0.0 
corresponding  to  zero  assets  and  1 . 0  corre¬ 
sponding  to  full  assets). 

contains  the  Ith  ordinate  point  for  the  function 
associated  with  NCOMD(L).  The  ordinates  are 
fractions  of  division  communications  capability 
remaining  (identical  to  XC3DD) . 

contains  the  weighting  factors  to  correlate  the 
division  surrogate  weapon  system  indexed  IW  to 
an  ecfuivalent  division  asset.  Note:  Within 
the  C^/D  modifications  to  TACWAR,  the  variables 
FCLWL  are  normalized  so  that  the  full  TOE  level 
of  weapons  systems  in  the  division  corresponds 
to  full  assets.  The  division  assets 
calculated  by  using  variable  FCLWL  are  used  not 
only  by  the  division  effectiveness  augmentation, 
but  also  by  the  nuclear  delivery  system  avail¬ 
ability  augmentation  and  the  target  acquisition 
processing  delay  time  augmentation  described  in 
later  sections. 


The  following  subroutines  calculate  or  use  division  combat  effectiveness 
parameters  EFFDD(ID)  and  EFFDA(ID): 

GC  within  DO  loop  2525 

FEB7VMT  within  DO  loop  520 

TC  within  DO  loop  4520  and  DO  loop  9020 

TIMET  following  CONTINUE  820 

The  explicit  code  changes  in  these  subroutines  to  incorporate  the 
division  effectiveness  factor  due  to  C^/D  are  given  in  appendix  A. 
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3 . 2  Nuclear  Delivery  System  Availability  Augmentation 


In  the  TACWAR  nuclear  model,  the  nuclear  delivery  systems 
available  for  each  combatant  side  are  assembled  into  three  major 
echelons  associated  with  command  control:  division,  corps-sector,  and 
theater  delivery  systems.  A  count  is  kept  of  the  number  of  delivery 
systems  available  at  each  echelon  for  each  side.  This  count  of 
availability  is  modified  by  a  C^/D  reduction  factor  that  reflects  the 
decrease  in  availability  due  to  a  failure  to  complete  special  nuclear 
authorization  and  release  (A/R)  messages.  The  C^/D  reduction  factor  is 
determined  from  a  functional  relationship  between  the  loss  of  special 
A/R  messages  and  the  degradation  of  assets  within  each  command 

control  echelon. 

The  degradation  of  assets  is  to  be  determined  by  using  a 
weighted  degradation  of  surrogate  assets  already  modeled  within  TACWAR 
and  associated  with  each  of  the  three  echelons.  Specifically,  the 
following  assets  will  be  used  as  surrogates  for  assets  at  the 

different  echelons: 

Division 

Division  weapons  systems  (using  the  same  technique  as  that 
described  in  the  previous  section  for  division  combat  effectiveness) 

Corps-sector 

Forward  sector  airbase  assets 

Belt  SAM  sites 

Forward  sector  medium-range  SSM  sites 

Forward  sector  long-range  SSM  sites 

Theater 


Rear  sector  airbase  assets 

Communication  zone  (COMMZ)  airbase  assets 

Rear  region  long-range  SAM  sites 

COMMZ  long-range  SAM  sites 

Rear  sector  long-range  SSM  sites 

As  these  assets  are  degraded  at  the  several  echelons,  a  weighted 
proportion  is  assumed  to  correspond  to  the  degradation  of  C^  assets 
within  the  same  echelon.  The  general  flow  of  logic  beginning  with  the 
degradation  of  explicitly  modeled  echelon  assets  and  resulting  in  the 
cVd  factor  for  the  availability  of  nuclear  delivery  systems  at  that 
echelon  is  shown  in  figure  2. 
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Figure  2.  Logic  flow  algorithm  for 

degradation  of  nuclear  delivery 
system  availability. 


The  changes  necessary  in  TACWAR  to  include  the  degradation  of 
nuclear  delivery  system  availability  as  a  result  of  C^/D  are  given  in 
appendix  A  and  are  discussed  below. 

Twenty-one  new  array  variables  are  required  to  hold  the  user 
input  functional  relationships,  the  surrogate  asset  weighting  factors, 
the  initial  numbers  of  explicitly  modeled  echelon  assets,  and  the 
nuclear  delivery  system  degradation  factors.  The  array  variables  are 
consolidated  in  two  common  blocks  labeled  TNFSC1  and  TNFSC2 . 

INABF(IS,L)  contains  the  initial  number  of  forward  area 
IS  =  1  to  8  airbases  in  sector  indexed  IS  for  combatant  side 

L  =  1  to  2  indexed  L. 
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INABR(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 

INABZ(L) 

L  =  1  to  2 

NC3SD(L) 

L  =  1  to  2 


XC3SD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


YC3SD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


FDDSAD(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 

FSDSAD( IS,L) 
IS  =  1  to  8 
L  =  1  to  2 

FTDSAD(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 

FABDCC(L) 

L  =  1  to  2 


ABSFCC(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 


contains  the  initial  number  of  rear  area  airbases 
in  sector  indexed  IS  for  side  indexed  L. 


contains  the  initial  nvunber  of  COMMZ  airbases  for 
side  indexed  L. 

contains  the  number  of  function  pairs  XC3SD  and 
YC3SD  that  describe  the  functional  relationship 
between  the  fractional  degradation  of  nuclear 
delivery  system  availability  and  the  degradation 
of  assets  at  each  echelon  for  combatant  side 
indexed  L. 

contains  the  Ith  abscissa  point  for  the  function 
associated  with  NC3SD(L).  The  abscissae  are 
fractions  of  assets  remaining  in  a  particular 
echelon. 

contains  the  Ith  ordinate  point  for  the  function 
associated  with  NC3SD(L).  The  ordinates  are 
fractional  reductions  in  nuclear  delivery  system 
availability  at  a  particular  echelon. 

contains  the  current  C^/D  fractional  reduction  in 
the  nuclear  delivery  system  availability  for  the 
division  echelon  in  sector  IS  for  side  L. 

contains  the  current  C^/D  fractional  reduction  in 
nuclear  delivery  system  availability  for  the 
corps-sector  echelon  in  sector  IS  for  side  L. 

contains  the  current  C^/D  fractional  reduction  in 
nuclear  delivery  system  availability  for  the 
theater  echelon  in  sector  IS  for  side  L. 

contains  the  weighting  factor  to  correlate  the 
corps-sector  and  theater  assets  with 
surrogate  airbase  assets  located  within  the  two 
respective  echelons  for  side  L. 

contains  the  fractional  asset  degradation  of  a 
notional  (average)  airbase  in  the  forward  area 
of  sector  IS  for  side  L. 
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ABSRCC( IS,L) 
IS  =  1  to  8 
L  =  1  to  2 

ABCZCC ( L ) 

L  =  1  to  2 

FSSMCC ( L ) 

L  =  1  to  2 


TSSMiR(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 


SSSMIM(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 


SSSMIL(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 


FSAMCC(L) 

L  =  1  to  2 


TSAMIR( IR,L) 
IR  =  1  to  3 
L  =  1  to  2 


TSAMIZ(L) 

L  =  1  to  2 


contains  the  fractional  asset  degradation  of  a 
notional  airbase  in  the  rear  area  of  sector  IS 
for  side  L. 

contains  the  fractional  asset  degradation  of  a 
notional  airbase  in  the  COMMZ  for  side  L. 

contains  the  weighting  factor  to  correlate  the 
corps-sector  and  theater  assets  with 
surrogate  SSM  sites  located  within  the  two 
respective  echelons  for  side  L. 

contains  the  initial  number  of  theater  echelon 
long-range  SSM  sites  located  in  the  rear  area  of 
sector  IS  for  side  L.  TSSMIR  is  set  to  the 
initial  value  of  the  variable  SSMSRS(IS,L) 
already  incorporated  in  TACWAR. 

contains  the  initial  number  of  corps-sector 
echelon  medium- range  SSM  sites  in  the  forward 
area  of  sector  IS  for  side  L.  SSSMIM  is  set  to 
the  initial  value  of  the  variable  SSMSFS 
(1,IS/L)  already  incorporated  in  TACWAR. 

contains  the  initial  number  of  corps-sector 
echelon  long-range  SSM  sites  in  the  forward  area 
of  sector  IS  for  side  L.  SSSMIL  is  set  to  the 
initial  value  of  the  variable  SSMSFS  (2,IS,L) 
already  incorporated  in  TACWAR. 

contains  the  weighting  factor  to  correlate  the 
corps- sector  and  theater  C^  assets  with 
surrogate  SAM  sites  located  within  the  two 
respective  echelons  for  side  L. 

contains  the  initial  number  of  theater  echelon 
long-range  SAM  sites  in  the  rear  area  of  region 
IR  for  side  L.  TSAMIR  is  set  to  the  initial 
value  of  the  variable  ALRSR( 1 , IR,L)  already 
incorporated  in  TACWAR. 

contains  the  initial  number  of  theater  echelon 
long-range  SAM  sites  in  the  COMMZ  for  side  L. 
TSAMIZ  is  set  to  the  initial  value  of  variable 
ALRSZ(1,L)  already  incorporated  in  TACWAR. 
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SSAMIF(IR,L) 
IR  =  1  to  3 
L  =  1  to  2 


contains  the  initial  number  of  corps-sector 
echelon  belt  SAM  sites  in  the  forward  area  of 
region  IR  for  side  L.  SSAMIF  is  set  to  the 
initial  value  of  variable  BMRS(1,IR,L)  already 
incorporated  in  TACWAR. 


In  addition  to  the  new  array  variables  described  above,  two  new 
subroutines  have  been  created  as  part  of  the  C^/D  augmentation  of 
nuclear  delivery  system  availability.  These  two  subroutines,  named 
DSDEG  and  NUCCCD,  are  given  in  appendix  A  and  are  briefly  described 
below. 


Subroutine  DSDEG  calculates  the  fractional  decrease  in  the 
availability  of  nuclear  delivery  systems  controlled  by  the  three 
echelons  for  each  sector  IS  and  for  each  side  L.  These  fractional 
values  are  stored  in  variables  FTDSAD,  FSDSAD,  and  FDDSAD  for  later  use 
by  subroutine  NWHINV.  The  calculations  are  performed  by  using  the 
following  algorithm: 

•  Determine  the  SAM  region  IR  associated  with  sector  IS. 

•  Adjust  the  surrogate  weighting  factors  for  airbase  assets  as 

required. 


•  Determine  the  fractional  equipment  degradation  from  the 
weighted  fractional  degradation  of  the  surrogate  at  each  echelon. 

•  Determine  the  fractional  degradation  of  the  nuclear  delivery 
system  availability  at  each  echelon  from  the  functional  relationship 
between  the  decrease  in  availability  and  the  degradation  of  the  echelon 

assets. 

In  addition,  subroutine  DSDEG  holds  the  calculated  corps-sector  and 
theater  asset  degradation  for  use  in  the  nuclear  escalation  state 
authorization  delay  and  target  acquisition  processing  delay  augmen¬ 
tations  described  in  later  sections. 

One  special  procedure  in  DSDEG  should  be  noted  on  the 
calculation  for  the  division  echelon  assets.  The  total  degradation 
of  assets  for  this  echelon  is  taken  as  the  geometric  mean  of  both  the 
corps-sector  and  the  division  degradation.  This  procedure  more 
realistically  simulates  the  corps-to-division  measures  actually  used. 

Subroutine  NUCCCD  determines  the  current  values  of  the  airbase 
assets  for  forward  area,  rear  area,  and  COMMZ  notional  airbases  for  each 
sector  IS  and  for  each  side  L.  These  airbase  assets  are  stored  in  array 
variables  ABSFCC,  ABRSCC,  and  ABCZCC,  respectively.  They  are  calculated 
from  the  current  values  of  the  operation  capability  CX:nUC(IAB)  of  the 
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actual  airbases  comprising  the  notional,  where  lAB  is  the  index 
identifying  the  actual  airbase. 

Much  of  the  code  for  subroutine  NUCCCD  is  extracted  from 
subroutine  DEG  (already  a  part  of  TACWAR)  that  performed  a  similar 
function  using  variable  OCNUC(IAB).  Moreover,  to  correctly  determine 
the  operating  capability  of  each  actual  airbase,  the  variable  OCNUC  is 
now  computed  in  subroutine  DAMEVL.  Sxabroutine  NUCCCD  also  performs  the 
task  of  initializing  the  variables  INABF,  INABR,  and  INABZ. 

Subroutines  DSDEG  and  NUCCCD  are  called  once  every  nuclear  or 
chemical  subcycle  from  subroutine  TMAIN.  The  results  from  DSDEG  are 
used  in  subroutine  NWHINV  to  make  the  actual  modifications  to  the 
nuclear  delivery  system  availability  variables  due  to  C^/D. 

3 . 3  Nuclear  Escalation  State  Authorization  Delay  Augmentation 

Presently  in  TACWAR,  depending  on  the  current  tactical  status, 
immediate  escalation  to  a  combat  state  may  occur  in  which  nuclear  and 
chemical  weapons  can  be  used.  This  ability  to  escalate  instantaneously 
is  typically  not  a  faithful  nuclear  combat  simulation  since  it  precludes 
the  proper  authorization  by  high-level  authorities  for  each  combatant 
side.  Consequently,  TACWAR  has  been  modified  to  simulate  the  nuclear 
request  and  authorization  procedures  as  a  processing  and  decision-making 
delay  time  between  the  time  that  a  nuclear  escalation  state  is  desired 
within  a  sector  (as  a  function  of  the  current  tactical  status  of  that 
sector)  and  the  time  that  the  escalation  can,  in  fact,  occur.  This 
prdcessing  delay  time  is  a  function  of  C^/D  occurring  for  each  side, 
especially  in  the  theater  and  corps-sector  echelons  of  the  battlefield. 

The  changes  necessary  in  TACWAR  to  include  the  nuclear 
escalation  processing  delay  as  a  result  of  C^/D  are  given  in  appendix  A 
and  are  discussed  below. 

Nine  new  array  variables  are  required  to  hold  the  user  input 
functional  relationships,  the  theater  and  corps-sector  assets,  and 

the  escalation  state  processing  flags.  These  array  variables  are 
consolidated  in  a  common  block  labeled  TNFSC4. 

NEDLY(L)  contains  the  number  of  function  pairs  XEDLY 

L  =  1  to  2  and  YEDLY  that  describe  the  functional 

relationship  between  the  fractional 
degradation  of  assets  in  the  theater  and 
corps-sector  echelons  and  the  processing 
delay  time  for  nucleair  escalation  for 
combatant  side  L. 
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XEDLY(I,L) 

I  =  1  to  8 
L  =  1  to  2 


YEDLY(I,IF,L) 
I  =  1  to  8 
IF  =  1  to  2 
L  =  1  to  2 


JESC(IS,ITC,L) 
IS  =  1  to  8 
ITC  =  1  to  3 
L  =  1  to  2 


IWAUT(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 

IFPLS(IS,L) 
IS  =  1  to  3 
L  =  1  to  2 

TEQPD(L) 

L  =  1  to  2 


SEQPD(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 


contains  the  Ith  abscissa  point  for  the 
function  asociated  with  NEDLY(L).  The 
abscissae  are  fractions  of  equipment 
assets  remaining  in  a  theater  or  corps-sector 
echelon  for  side  L. 

contains  the  Ith  ordinate  point  for  two 
functions  (IF  =  1  and  IF  =  2)  associated  with 
NEDLY(L).  The  ordinate  is  nuclear  A/R 
processing  times  (in  hours)  for  each  side 
L.  The  function  corresponding  to  IF  =  1 
describes  the  delay  time  associated  with  the 
first  A/R  cycle  for  each  side  L  and  typically 
reflects  the  enhanced  decision-making  delay 
for  first  use  of  nuclear  weapons.  The 
function  corresponding  to  IF  =  2  describes 
the  delay  time  associated  with  all  A/R  cycles 
following  the  first. 

contains  the  desired  escalation  state  for  side 
L  within  sector  IS  against  target  category 
ITC.  This  variable  will  reflect  the  nuclear 
escalation  state  to  which  side  L  will  advance 
following  the  completion  of  the  required 
processing  delay. 

contains  the  control  flags  that  are  set 
whenever  side  L  within  sector  IS  is  waiting 
for  nuclear  release  authorization. 

contains  the  control  flags  that  are  set 
following  the  first  authorization  to  a 
nuclear  state  by  side  L  in  sector  IS. 

contains  the  current  fractional  decrease  in 
theater  assets  for  side  L.  These 
variables  are  determined  from  the 
identical  surrogate  theater  assets  described 
in  section  3.2  for  the  degradation  of  nuclear 
delivery  system  availability. 

contains  the  current  fractional  decrease  of 
corps-sector  assets  within  sector  IS  for 
side  L.  These  variables  are  determined  from 
identical  surrogate  corps-sector  assets  used 
for  the  degradation  of  nuclear  delivery 
system  availability. 
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CTIME(IS,L)  contains  the  current  waiting  time  (in  hours) 

IS  =  1  to  8  following  the  onset  of  a  nuclear  escalation 

li  =  1  to  2  request  by  side  L  in  sector  IS.  This  time  is 

updated  every  nuclear  or  chemical  subcycle 
until  the  appropriate  delay  has  been 
achieved. 

In  addition  to  the  nine  new  array  variables,  one  new 
subroutine,  named  EDELAY,  has  been  created  as  part  of  the  augmentation 
to  delay  the  nuclear  escalation  process.  EDELAY  is  given  in  appendix  A 
and  is  briefly  described  below. 

EDELAY  uses  the  above  array  variables  to  calculate  and  update  a 
processing  delay  time  and  the  current  waiting  time  before  a  desired 
nuclear  escalation  state  can  be  realized  by  each  side  in  each  combat 
sector  IS.  EDELAY  uses  an  algorithm  shown  in  the  flow  diagram  in  figure 
3.  Specifically,  for  each  side  and  for  each  sector, 

•  Calculate  the  fractional  equipment  assets  (associated  with 
nuclear  A/R)  degraded  in  each  sector.  These  assets  correspond  to  the 
geometric  mean  of  the  theater  and  corps-sector  echelon  assets  since 
the  authorization  process  occurs  through  a  theater  to  corps-sector  chain 
of  command. 

•  Determine  the  desired  escalation  state. 

•  If  not  already  waiting,  reset  the  waiting  time  and  set  the 
waiting  flag. 

•  Determine  the  current  delay  time  as  a  function  of  C^/D. 

•  Update  the  current  waiting  time. 

•  If  the  waiting  period  is  complete,  set  the  current  escalation 
state  to  the  desired  state,  reset  the  waiting  flag,  and  reset  the 
desired  escalation  state. 

EDELAY  is  called  from  subroutine  NUC1  immediately  following  the  call  to 
ESCLAT. 

3.4  Nuclear  or  Chemical  Target  Acquisition  Processing  Delay 

Presently  in  TACWAR  the  target  acquisition  (TA)  model  provides 
for  the  acquisition  by  each  combatant  side  against  active  and  reserve 
division  subunit  targets  of  the  opposite  side.  Using  ground  sensor, 
army-air  sensor,  and  air  force  sensor  assets,  the  following  three 
quantities  are  determined  against  each  target  type; 
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Total  probability  of  detection  by  all  available  TA  assets 
Root-mean-square  TA  error 

Weighted  average  processing  time  for  TA  information 


The  first  two  quantities  are  primarily  functions  of  the  number  and 
operating  characteristics  of  the  TA  sensors  and  are  negligibly 
influenced  by  cVd.  However,  the  third  quantity,  TA  processing  time,  is 
greatly  influenced  by  C^/D.  Consequently,  TACWAR  is  augmented  to 
include  the  increase  in  TA  processing  time  due  to  the  degradation  of 
assets  within  the  area  where  the  TA  sensors  are  controlled.  This 
additional  processing  time  is  then  added  to  the  nominal  processing  time 
(already  a  part  of  TACWAR)  to  give  a  total  processing  time  for  the  TA 
information  against  each  target  type. 

AT  EACH  NUCLEAR  SUBCYCLE  (2  HR) 

FOR  EACH  SIDE 
FOR  EACH  SECTOR 


PREEMPTIVE  STRIKE 


Figure  3.  Logic  flow  diagram  of  C^  degradation  of 
nuclear  escalation  process. 
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In  TACWAR,  the  TA  processing  time  currently  calculated  is  not 
effectively  used  by  the  other  subroutines  of  TACWAR.  In  particular,  the 
TA  processing  time  becomes  an  important  quantity  in  the  overall  combat 
simulation  when  the  simulation  also  includes  movement  of  the  targets. 
Thus,  if  TA  processing  is  excessively  long  against  an  acquired  target, 
then  that  potential  target  may  move  to  another  location  before  being 
attacked  by  nuclear  or  chemical  munitions.  The  effects  of  subsequent 
nuclear  or  chemical  strikes  would  then  be  partially  or  completely 
negated.  Since  TACWAR  presently  has  no  simulation  of  the  movement  of 
subunit  targets  and  does  not  use  the  TA  processing  times  against  these 
subunit  targets,  the  effects  of  C^/D,  especially  as  they  modify  TA 
prpcessing  times,  will  have  minimal  impact  on  the  outcome  of  the  combat 
simulation.  Consequently,  it  is  recommended  that  TACWAR  be  modified  to 
include  the  necessary  target  siibunit  movement  capability.  However,  such 
a  modification  would  be  outside  the  scope  of  this  work. 

The  changes  necessary  in  TACWAR  to  include  the  nuclear  or 
chemical  TA  processing  delay  as  a  result  of  C^/D  are  given  in  appendix  A 
and  are  described  below. 

Nine  new  array  variables  are  required  to  hold  the  user  input 
functional  relationships  between  C^  equipment  degradation  and  increased 
TA  processing  times.  These  array  variables  are  consolidated  in  a  common 
block  labeled  TNFSC5. 


NGSFD(L) 

L  =  1  to  2 


XGSFD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


YGSFD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


NAAFD(L) 

L  =  1  to  2 


contains  the  number  of  function  pairs  XGSFD 
and  YGSFD  that  describe  the  functional 
relationship  between  the  increase  in  the  TA 
processing  time  for  division  ground  sensors 
and  the  degradation  of  division  C^  assets  for 
side  L. 

contains  the  Ith  abscissa  point  for  the 
function  associated  with  NGSFD(L) .  The 
abscissae  are  fractions  of  C^  assets 
remaining  in  a  division. 

contains  the  Ith  ordinate  point  for  the 
function  associated  with  NGSFD(L) .  The 
ordinates  are  increased  TA  processing  times 
(in  hours)  for  the  division  ground  sensors 
for  side  L. 

contains  the  number  of  function  pairs  XAAFD 
and  YAAFD  that  describe  the  functional 
relationship  between  the  increase  in  the  TA 
processing  time  for  army-air  sensors  and  the 
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I 


XAAFD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


YAAFD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


NAFFD(L) 

L  =  1  to  2 


XAFFD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


YAFFD ( I , L ) 

I  =  1  to  8 
L  =  1  to  2 


degradation  of  forward  corps-sector  assets 
for  side  L. 

contains  the  Ith  abscissa  point  for  the 
function  associated  with  NAAFD(L) .  The 
abscissae  are  fractions  of  assets 
remaining  in  the  forward  corps-sector  of  side 

L. 

contains  the  Ith  ordinate  point  for  the 
function  associated  with  NAAFD(L) .  The 
ordinates  are  increased  TA  processing  times 
(in  hours)  for  an.\y-air  sensors  for  side  L. 

contains  the  number  of  function  pairs  XAFFD 
and  YAFFD  that  describe  the  functional 
relationship  between  the  increase  in  the  TA 
processing  time  for  air  force  sensors  and  the 
degradation  in  the  forward  region  assets 
for  side  L. 

contains  the  Ith  abscissa  point  for  the 
function  associated  with  NAFFD(L) •  The 
abscissae  are  fractions  of  assets 
remaining  in  the  forward  region  of  side  L  ( as 
determined  by  the  average  of  the  fractional 
assets  remaining  in  the  corps-sectors  that 
comprise  the  region) . 

contains  the  Ith  ordinate  point  of  the 
function  associated  with  NAFFD(L) .  The 
ordinates  are  increased  TA  processing  times 
(in  hours)  for  air  force  sensors  for  side  L. 


The  three  functional  relationships  given  above  describe  the  influence  of 
C^/D  on  TA  processing  times  for  each  of  the  three  types  of  TA  assets — 
ground,  army-air,  and  air  force,  respectively.  The  degradation  of 
assets  within  each  of  the  three  areas  that  control  these  different  TA 
assets  is  calculated  ■  in  a  manner  identical  for  that  of  the  earlier 
sections.  Specifically,  the  degradation  of  divisional  assets  that 

control  the  ground  sensors  is  determined  from  surrogate  weapons  systems 
assets  as  described  in  section  3.1.  Similarly,  the  degradation  of 
assets  that  control  army-air  sensors  in  corps-sector  IS  =  1  to  8  is 
contained  in  the  array  variable  SEQPD  described  in  section  3.3.  The 
degradation  of  assets  that  control  air  force  sensors  in  regions  IR  = 
1  to  3  is  determined  as  an  average  of  the  asset  degradations  (SEQPD) 
for  all  corps-sectors  comprising  the  regions. 
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In  sections  in  subroutines  TADPAR  and  TARACA  ( already  a  part 
of  TACWAR)  ,  the  above  functions  are  used  and  the  increase  in  TA 
processing  times  is  calculated  (app  A). 

3.5  Ancillary  Modifications  to  TACWAR 


In  addition  to  the  modifications  described  in  sections  3.1  to 

3.4,  several  ancillary  modifications  are  required  in  TACWAR  to  support 
the  above  modifications.  Specifically,  a  user  data  input  subroutine, 
named  TNFINP,  and  a  data  initialization  BLOCK  DATA  subroutine  have  been 
created  to  initialize  the  array  variables  described  in  sections  3.1  to 

3.4.  Both  TNFINP  and  the  BLOCK  DATA  subroutines  are  given  in  appendix 
A.  Also,  the  single  call  to  subroutine  TNFINP  is  made  at  the  beginning 
of  subroutine  TMAIN. 


4.  LIMITATIONS 

In  constructing  the  augmentations  to  TACWAR  described  in  section  3, 
no  attempt  was  made  to  minimize  the  additional  required  storage  to  hold 
the  new  data  variables  and  code.  In  particular,  no  overlay  structure 
was  developed  that  would  conform  to  that  of  the  later  versions  of 
TACWAR.*  Similarly,  the  data  for  the  new  variables  are  input  through  a 
rather  rudimentary  set  of  READ  instructions  in  subroutine  TNFINP,  and  no 
attempt  was  made  to  include  this  data  input  into  the  rather  extensive 
input  phase  of  TACWAR.  One  consequence  of  this  is  that  the 
augmentations  do  not  support  the  "restart"  capability  described  by  the 
Defense  Communications  Agency. t  Another  consequence  is  the  requirement 
for  the  augmented  data  to  be  in  a  definite  secpience  for  proper 
interpretation  by  subroutine  TNFINP. 


5.  USER  DATA  INPUT 

For  the  most  part,  the  user  data  necessary  to  initialize  the  new 
array  variables  (sect.  3)  are  (1)  the  weighting  factors  used  to 
transform  an  explicitly  modeled  area  asset  into  an  equivalent  C^  asset 
for  the  same  area  or  echelon  and  (2)  the  functional  relationships 
describing  the  influence  of  C^/D  on  the  several  combat  simulations. 

The  surrogate  assets  for  the  division  level  C^  equipment  are  the 
weapons  systems  within  the  divisions  (up  to  10  such  system  types  are 
allowed  for  each  division) .  An  initial  approximation  would  be  to  assume 


*TACWAR  Core  Reduction,  Defense  Communications  Agency  CCTC  Letter 
Report,  Task  Order  634  Subtask  1  (17  April  1978). 

tTACWAR  Restart  Capability ,  Defense  Communications  Agency  CCTC  Letter 
Report,  Task  Order  534  Subtask  2  (14  December  1977). 
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that  one  asset  is  associated  with  each  weapons  system;  thus,  the 
weighting  factors  for  division  assets  would  be  the  initial  nimber  of 
weapons  systems  at  the  beginning  of  the  simulation  for  each  combatant 
side.  These,  in  fact,  are  the  weighting  factor's  used  in  the  examples  of 
section  6.  However,  it  is  probably  a  better  simulation  of  reality  to 
assume  one  asset  (in  arbitrary  units)  to  each  division  subunit.  The 
number  of  weapons  systems  in  each  of  the  subunit  types  would  then 
determine  the  appropriate  asset  weighting  factor. 

The  surrogate  assets  for  corps-sector  and  theater  equipnent  are 
airbase  assets,  SSM  assets,  and  ,  SAM  assets.  The  weighting  factors  to 
transform  these  into  equivalent  assets  may  be  determined  by  the 
following  rationale.  Airbase  assets  may  be  roughly  equated  with  fixed- 
site  hardened  facilities;  SSM  sites  may  be  roughly  equated  with 
mobile  nuclear  "soft"  assets;  SAM  sites  may  be  roughly  equated  with 
semimobile  nuclear  hardened  assets.  The  appropriate  mix  of  the  group 
will  depend  upon  the  specific  theater  of  conflict.  For  the  examples 
given  in  section  6,  the  following  corps-sector  and  theater  weighting 
factors  are  used  for  each  side; 

Airbase  0.30 
SSM  0. 40 
SAM  0.30 

The  functional  relationships  between  C^/D  and  the  several  aspects  of 
the  augmentations  are  provided  according  to  the  following  assumptions ; 

a.  The  functional  relationship  between  the  degradation  of  division- 
level  assets  and  the  reduction  of  division-level  messages  is  obtained 
from  the  results  of  TACNET  (a  discrete  event  simulation  of  a  theater- 
level  communications  model  developed  by  Egon  Marx^).  The  explicit 
relationship  is  shown  in  figure  4  and  assumed  applicable  for  each  side. 

b.  The  functional  relationship  between  the  reduction  of  division- 
level  message  traffic  and  the  decreased  division  effectiveness  is 
obtained  from  consultation  with  personnel  at  the  U.S.  Army  Training  and 
Doctrine  Command  (TRADOC)  Systems  Analysis  Activity  (TRASANA).  This 
relationship  is  shown  in  figure  5  and  is  assumed  applicable  for  each 
side . 


c.  The  functional  relationship  between  the  degradation  of  corps- 
sector  and  theater  assets  and  the  reduction  of  "special"  messages 
associated  with  the  availability  of  nuclear  delivery  systems  was  taken 
from  the  Marx  report.^  This  relationship  is  shown  in  figure  6  and  is 
assumed  applicable  for  each  side. 


^Egon  Marx,  TACNET,  A  Model  of  the  Army's  Tactical  Communications 
Networks  in  Europe,  Harry  Diamond  ’  Laboratories  HDL-TR-1913  (January 
1980). 
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Figure  5.  Division  effectiveness  as 
function  of  fraction  of 
information  messages 
available  within 
division . 


Figure  4.  Fraction  of  information 

available  within  division 
as  function  of  fraction 
of  assets  remaining 
within  division. 
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Figure  6.  Fraction  of  nuclear 

authorization  and  release 
messages  available  as 
function  of  remaining 
assets . 


d.  The  functional  relationships  between  the  degradation  of  corps- 
sector  and  theater  assets  and  the  nuclear  escalation  authorization 
delay  times  are  shown  in  figure  7(a,  b)  for  side  L  =  1  (blue)  and  side  L 
=  2  (red).  These  data  are  initial  estimates  used  to  exercise  the 
augmentations  more  than  for  accurate  representations  of  reality. 

e.  The  functional  relationships  between  the  degradation  of 
division,  corps-sector,  and  regional  assets  and  the  increased  TA 
processing  time  are  shown  in  figure  8(a,  b,  c)  and  are  assumed 
applicable  for  each  side.  These  data  are  primarily  to  exercise  the 
augmentations . 

Figure  9  illustrates  a  sample  data  deck  used  as  input  for  subroutine 
TNFINP  described  in  section  3.5.  It  is  imperative  that  the  data  cards 
follow  in  correct  sequence. 
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C’  ASSETS 

Figure  7.  Nuclear  escalation  delay 
time  as  function  of 
remaining  assets:  (a) 
blue  side  and  (b)  red 
side. 
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Figure  9.  TNFINP  input 
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6.  RESULTS  OF  SAMPLE  RUNS 


The  C^/D  modified  TACWAR  model  has  been  exercised  for  several  sets 
of  input  data  td  validate  the  augmentations  described  in  section  3  and 
to  determine  the  degree  of  sensitivity  of  the  overall  combat  simulation 
to  these  augmentations.  These  sample  simulation  runs  were  made  by  using 
an  unclassified  benchmark  data  base  obtained  from  CCTC.  For  the 
different  sample  runs,  the  values  of  the  parameters  in  this  data  base 
remained  constant  except  those  parameters  used  to  control  the  overall 
operation  of  the  simulation  such  as  the  total  number  of  12-hr  cycles 
involved  and  the  inclusion  of  nuclear  combat  capability.  The  additional 
parameters  associated  with  the  C^/D  augmentation  were  varied  from  run  to 
run  in  order  to  make  the  sensitivity  determination. 

Although  the  parameters  in  the  benchmark  data  base  and  the 
parameters  associated  with  C^/D  augmentation  are  reasonable,  they  are 
not  necessarily  an  accurate  reflection  of  current  combat  capabilities  of 
U.S.  or  adversary  forces.  Consequently,  the  results  of  the  sample  runs 
have  no  direct  significance  in  an  actual  environment. 

6.  1  Conventional  Warfare — Influence  of  C^/D  on  Division 
Effectiveness 


The  first  series  of  sample  runs  involved  opposing  forces 
constrained  to  conventional  warfare  only,  with  no  possibility  of  nuclear 
or  chemical  escalation.  These  runs  were  used  to  exercise  the  C^/D 
augmentation  to  division  effectiveness  and  subsequent  combat  results 
such  as  weapon  system  losses,  personnel  casualties,  and  FEBA  movement. 
The  sample  runs  included  two  cases: 

•  Side  1  (blue)  alone  suffers  C^/D. 

•  Side  2  (red)  alone  suffers  C^/D. 

The  simulations  were  run  for  twenty-five  12-hr  cycles  (12.5 
days) ,  and  detailed  results  were  obtained  for  all  eight  sectors  of  the 
theater.  However,  the  results  of  only  a  typical  sector  (sector  6)  were 
subjected  to  a  detailed  analysis. 

Figure  10  shows  the  personnel  casualties  incurred  by  side  1 
(blue)  in  sector  6  for  the  two  cases.  If  only  the  last  values  of  the 
casualties  had  been  given  for  analysis  instead  of  the  entire  time 
history,  one  might  have  logically  concluded  that  the  results  disagreed 
with  practical  intuition.  Specifically,  after  cycle  14,  the  blue 
casualties  are  less  when  the  blue  side  suffers  C^/D  than  when  the  red 
side  suffers  C^/D.  However,  a  more  detailed  analysis  of  the  entire 
picture  of  the  combat  resolves  this  apparent  contradiction.  Thus,  when 
the  blue  side  alone  suffers  C^/D,  the  red  side  at  the  beginning  of  the 
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simulation  becomes  the  sector  attacker  and  maintains  this  attack  posture 
throughout  the  entire  simulation.  The  blue  side  (defending)  assumes 
several  different  defense  postures  such  as  delay,  prepared  defense, 
hasty  defense,  and  breakthrough,  as  shown  in  figure  10.  Each  of  these 
defense  postures  has  a  different  personnel  attrition  rate  associated 
with  it,  which  is  the  major  cause  of  the  abrupt  change  in  slope  in  the 
figure.  On  the  other  hand,  when  the  red  side  alone  suffers  C^/D,  it 
again  begins  the  simulation  as  the  sector  attacker.  However,  after 
cycle  14,  the  red  side  stops  attacking  and  shifts  to  a  holding  posture; 
the  blue  side  likewise  shifts  from  defense  to  holding.  Since  the 
personnel  attrition  rate  for  a  holding  posture  is  greater  than  that  for 
the  delay  defense  posture,  the  blue  casualty  lines  for  the  two  cases 
cross  shortly  after  cycle  14,  and  the  apparent  inconsistency  is 
explained.  Consequently,  it  is  advisable  when  analyzing  the  results  of 
TACWAR  simulations  (including  those  associated  with  C^/D  augmentation) 
not  to  reject  as  wrong  or  in  error  any  result  that,  on  the  surface, 
appears  to  contradict  logical  intuition. 


reduction  of  division 
effectiveness . 
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Figure  11  shows  the  counterpart  casualties  incurred  by  side  2 
(red)  for  the  two  cases.  For  this  situation,  there  is  no  inconsistency 
in  what  is  to  be  intuitively  expected  (at  least  to  the  point  where  the 
simulation  run  was  ended).  These  results  show  approximately  a  10- 
percent  maximum  difference  for  the  two  extreme  cases  of  C^/D,  that  is, 
blue  alone  versus  red  alone. 
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Figure  11.  Red  casualties  for  C^/D 
reduction  of  division 
effectiveness . 
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Figure  12  shows  the  relative  FEBA, movement  in  sector  6  for  the 
two  cases.  This  figure  illustrates  the  fact  that  C^/D  can  dramatically 
affect  some  of  the  results  of  combat.  The  detailed  analysis  of  all 
aspects  of  the  simulation  is  required  for  full  understanding  of  the 
reason  for  this  behavior.  Thus,  with  blue  alone  suffering  C^/D,  the  red 
side  maintains  its  attack  posture  throughout  the  simulation.  After 
cycle  14,  when  the  blue  side  assumes  a  delay  defensive  posture  and  the 
terrain  interval  allows  a  fast  FEBA  movement,  the  slope  of  the  FEBA 
movement  line  abruptly  increases.  On  the  other  hand,  when  the  red  side 
alone  suffers  cVd,  its  attack  stalls  after  cycle  14,  and  the  FEBA 
movement  does  not  increase  further. 


Figure  12.  Forward  edge  of  battle  area 

movement  for  C^/D  reduction  of 
division  effectiveness. 
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6. 2  Nuclear  Warfare — Influence  of  C^/D  on  Nuclear  Delivery  System 

Availability 

The  next  series  of  sample  runs  involved  opposing  forces  engaged 
in  a  combined  conventional  and  nuclear  warfare  environment.  Nuclear 
warfare  was  played  by  assuming  that  a  new  escalation  state  could  be 
initiated  every  12-hr  cycle.  As  a  consequence  of  the  benchmark  data 
base  used,  a  restricted  set  of  escalation  criteria  was  used  in  the 
sample  runs.  Specifically,  preemptive  strike  escalation  was  allowed 
from  cycle  0  through  cycle  4.  Following  cycle  4,  the  only  criterion  for 
allowed  nuclear  escalation  was  the  FEBA  movement  past  a  critical 
threshold.  Consequently,  the  number  of  nuclear  escalation  attempts  was 
limited  for  both  sides. 

As  in  section  6.1,  sample  runs  included  simulations  in  which 
side  1  (blue)  alone  suffered  C^/D  and  in  which  side  2  (red)  alone 
suffered  C^/D.  The  simulations  were  run  to  twenty  12-hr  cycles  (10 
days) ,  and  detailed  results  were  obtained  for  all  eight  sectors  of  the 
theater .  Again  only  sector  6  was  analyzed  in  detail . 

Figures  13  to  15  show  the  fraction  of  nuclear  delivery  system 
availability  due  to  C^/D  for  division,  corps-sector,  and  theater 
echelons,  respectively.  The  strong  decrease  in  the  availability  of 
corps-sector  delivery  systems  reflects  the  active  nuclear  combat  being 
played  as  a  result  of  preemptive  attacks.  After  cycle  4,  the  change  is 
much  slower  because  only  conventional  warfare  is  being  waged  during  this 
time.  The  changes  occurring  at  cycle  14  are  due  to  reallocation  of 
assets  from  the  theater  to  the  corps-sector  echelon.  The  availability 
of  theater  delivery  systems  shows  a  more  gradual  decrease  due  primarily 
to  conventional  attrition  by  aircraft  attack.  Lastly,  the  decrease  to 
zero  of  the  blue  side  division  availability  between  cycles  8  and  16  is 
an  "artifact"  resulting  when  the  supplies  inventory  for  the  blue 
divisions  is  depleted  and  the  divisions  are  forced  to  withdraw  out  of 
the  active  battle  area.  When  new  supplies  are  allocated  to  these 
divisions,  they  again  achieve  a  finite  delivery  system  availability. 

.  In  conclusion,  although  the  availability  factors  within  each 
echelon  are  strongly  influenced  by  C^/D,  the  total  number  of  nuclear 
rounds  fired  by  each  side  remained  essentially  the  same  as  when  no  C^/D 
occurred  for  either  side.  They  are  similar  because  of  the  large  number 
of  potential  delivery  systems  available  at  each  echelon  and  the 
restricted  nuclear  combat  being  played;  that  is,  the  number  of  potential 
nuclear  targets  remained  small  with  or  without  C^/D. 
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Figure  13 


Figure  14. 


Reduced  nuclear 
delivery  system 
availability  for 
corps- sector  echelon 
due  to  C^/D. 
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Figure  15.  Reduced  nuclear 
delivery  system 
availability  for 
theater  echelon  due 
to  C^/D. 


6.3  Nuclear  Warfare — Influence  of  cVd  on  Nuclear  Escalation 


This  series  of  sample  runs  involved  opposing  forces  engaged  in 
a  combined  conventional  and  nuclear  warfare  environment.  In  contra¬ 
distinction  to  warfare  described  in  section  6.2,  in  which  nuclear 
escalation  could  occur  at  the  beginning  of  each  12 -hr  cycle,  the  present 
section  includes  the  nuclear  escalation  authorization  delay  process  in 
which  a  desired  nuclear  escalation  state  is  reached  only  after  a  delay 
time  influenced  by  cVd. 

The  sample  runs  were  made  for  the  simulation  in  which  both  side 
1  (blue)  and  side  2  (red)  suffer  C^/D.  As  in  section  6.2,  the 
simulation  continued  out  to  twenty  12-hr  cycles  (10  days).  However,  in 
the  present  set  of  runs,  each  12-hr  cycle  was  subdivided  into  six  2-hr 
subcycles  in  which  possible  nuclear  escalation  could  occur.  This 
subdivision  defines  better  the  overall  escalation  delay  process . 

Figure  16  compares  the  FEBA  movement  in  sector  6  for  (1)  C^/D 
delayed  nuclear  escalation,  (2)  12-hr  nuclear  escalation,  and  (3) 
nonnuclear  combat.  It  is  seen  in  figure  16  that  the  C^/D  delayed 
escalation  process  greatly  constrains  nuclear  combat  compared  with  the 
12-hr  escalation  and  causes  the  C^/D  delayed  FEBA  movement  to  lie  in  a 
region  approximately  halfway  between  the  12-hr  escalation  and  nonnuclear 
combat. 
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Figure  16.  Forward  edge  of  battle 
area  movement  for 
different  nuclear 
escalation  processes. 


6.4  Target  Acquisition — Influence  of  C^/D  on  Target  Acquisition 
Processing  Delay  Time 

A  series  of  sample  runs  was  made  to  validate  the  code  changes 
in  the  TACWAR  model  used  to  increase  the  TA  processing  delay  time  due  to 
cVd.  However,  the  augmentation  of  the  TA  processing  delay  does  not 
manifest  itself  in  any  overall  change  in  combat  results  since  the  TA 
delay  time  quantity  is  not  presently  used  in  the  other  TACWAR  routines. 
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7. 


SUMMARY  AND  CONCLUSIONS 


The  TACWAR  theater-level  combat  simulation  model  has  been  augmented 
to  include  command,  control,  and  communications  degradation  effects  in 
four  important  areas  of  the  combat  simulation: 

Division  effectiveness 
Nuclear  delivery  system  availability 
Nuclear  escalation  authorization  delay 
Target  acquisition  processing  delay 

Sample  runs  made  using  a  benchmark  data  base  show  noticeable  changes  in 
overall  combat  results  (such  as  personnel  casualties  and  FEBA  movement) 
when  these  cVd  augmentations  are  included  in  the  simulation  (except  the 
TA  processing  delay  as  mentioned  in  sect.  6.4). 
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APPENDIX  A. — COMPUTER  CODE  CHANGES  TO  IMPLEMENT  TACWAR  AUGMENTATIONS  FOR 
COMMAND,  CONTROL,  AND  COMMUNICATIONS  DEGRADATION 
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APPENDIX  A 


This  appendix  contains  the  actual  computer  code  changes  that  are 
used  to  implement  the  TACWAR  augmentations  for  command,  control,  and 
communications  degradation  (C^/D).  Lines  of  new  computer  code  that  have 
been  inserted  into  the  original  versions  of  TACWAR  are  indicated  by  the 
mnemonic  I  JClOOl  in  the  sequence  field  (columns  73  to  80)  of  the 
instruction  line.  Similarly,  lines  of  computer  code  that  have  been 
modified  in  the  original  version  of  TACWAR  are  indicated  by  the  mnemonic 
C  J3I001  in  the  sequence  field.  For  brevity,  the  long  common  block  that 
holds  the  dynamic  parameters  of  the  original  version  of  TACWAR  is 
indicated  in  any  computer  listing  as  COMMON/BBB/  enclosed  between  two 
lines  of  asterisks. 

The  appendix  has  five  sections  corresponding  to  the  four  major  areas 
of  augmentation  and  an  ancillary  or  general  area  of  augmentation : 

A-1.  Division  Effectiveness 

A-2.  Nuclear  Delivery  System  Availability 

A-3.  Nuclear  Escalation  Delay 

A-4.  Target  Acquisition  Processing  Delay 

A-5.  Input  and  Main  Control 

A-1.  DIVISION  EFFECTIVENESS 

This  section  partially  lists  those  subroutines  that  calculate 
division  effectiveness  factors,  namely,  FEBAMT,  GC,  TC,  and  TIMET. 


SUBROUTINE  FEBAKT 

f0**»0*90»*»«*»»»*««««***»»********** 

C  FEBAMT  COMPUTES  FEBA  MOVEMENT  AS  A  FUNCTION  OF  FORCE  RATIO, 

C  POSTURE,  TERRAIN.  AND  MOBILITY. 

C  CALLED  BY  GROUND 

C  CALLS  CVFK 

f***0*0»0*0*«»*»«»«»»********»*»***»» 

REAL  NSUTD,t4TSUDT,INTDA,INTDE,INT0S 
CDKMOri/BCB/ 

•  99  9  9  9  9099  O  #••9  •8999  ^  0  9  9  9  ••  O  90^0  9  99  9999 

C0HH0N/TKFSC3/NC3DDt2l,XC3DD«8,21,YC300t8,2l,  1  JClOOl 

»  NCOMD (2) ,XC0H0I8,2I  ,YC0HD(8,2) ,  1  JCIOOL 

0  FCLi(L(lD,21  1  JClOOl 

COMHON/CCFM/  1H0RAM(8,2I 
DIMENSION  VODSFIIGO)  .KVDOClUO) 

DIMENSION  SUMM(lO) .ISUHKCSl  ,lT0HDS(8i 
MOT. JCON 
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5)  cOMPUrE  effectiveness  of  all  0Iv!S)DNS. 


IF  (  IPRD.NE.I  I  CO  TO  IS 
WRITE {MOT, 18)  ICYCLE 

18  FORMAT! 'O', •••♦OUTPUT  FROM  SUBROUTINE  FEBAMT.  CYCLE  »  ’,131 
IS  CONTINUE 

SKIP  THIS  SECTION  IF  SECURITY  FORCE  RATIO  IS  NOT  TO  BE  USEO 
IFCIUSFRC.EU.DI  CO  TO  599 

kVODC  =  ACTUAL  DIVISION  WEAPON  VALUE  ON  OEFENSE 
PPS  =  DIVISION  FRACTIONAL  PERSONNEL  STRENGTH 
OSH  =  DAYS  SUPPLY  ON  HAND 
N2‘0 

LlM^NDCl )«ND(2 I«MA0 (1I4MAD(2I 
DO  500  ID>I.LIM 
WVODCdDjcO. 

EFFDD(ID)=0. 

VDDSF(lDI-0. 

SOD  CONTINUE 

DO  550  L=I  .2 
NI -I«N2 
N2-N24ND  (L  I 
N3°NW(LI 
00  520  1D>NI ,N2 
IT=IT0(I0I 
WVODC(ID)<0. 

COKD'O. 

DO  505  IW*I,N3 

WVDDC I  ID) >WVDDC ( 10 ) • VI WOSF 1 1 W. L) •W DI V ( lU , I D ) 

TOCWdKOI  IW,  IT  I 

1F(T0EW.CT.0.IC0MD<:CQMD«FCLWL{IW,L  )^WDIV(1H,ID)/T0EU 
505  CONTINUE 

pps  =  PO)v()D)/rpo()r) 

C  COMPUTE  PERSONNEL  EFFECTIVENESS 

CALL  CVFk(NtOEF(L),XOEF(l,L).YOEFI I,L) ,PPS,PEO) 
OSH=SDIV()U)/PCSU()T) 

C  COMPUTE  SUPPLY  EFFECTIVENESS  FACTOR 

CALL  LVFWCNSEFFILI. XSEFF (1 .L 1 . YSEF F 1 1 ,L ) ,DSH , SE F ) 

C....  COMPUTE  C^^3  OlCRAOAnON 

CALL  CVEKINCOHtilL)  fXCOMOO  ,L  ),TCDMD(1  ,L  )  tCDMOtCCCO) 

C....  COMPUTE  C«^3/0  EFFECTIVENESS  FACTOR 

CALL  CVFW(NC3DD(L)  ,XC3DDI1  ,L),YC3DDI1,L)  ,CCC0,EFFC3) 

C  COMPUTE  DIVISION  EFFECTIVENESS  ANO  COMBAT  VALUE  ON  DEFENSE 

EFFDD(ID)«EFFC3^SEF^AH)NtC{WV0DCCI0)/WVDDTSIITII ,PEO) 

IF  (I0MU.ED.3.0R.IDHU.E0.5I  CO  TO  6908 
EFFDD(IOI*EFFCO(IDI»FDEFCPIIOI 
6908  CONTINUE 

VDOSF (IO)=EFFDD(I0)^WVDDTSIIT) 

520  CONTINUE 

N2=N2«MA0(LI 
550  CONTINUE 
C 

IFIIPRD.NE .1)  CO  TO  599 
WR1TE(H0T,II7) 

N3*ND(1)«ND(2')4MAD(1) 

DO  580  )Dd,N3 
ITtITOI ID) 

WRITE (MOT, 12)  10, WVDDC (ID) ,WVDOTSC IT ) ,CFFDDC 1 0 1 ,VOOSF ( 1 0 > 
580  CONTINUE 
599  CONTINUE 


SUBROUTINE  CC 

C*  ••»••••••••••••••••••••••••••••••• 

C  GC  COMPUTES  ATTRITION  TO  PEOPLE  AND  WEAPONS  CAUSED  BY  GROUND  FIRE 

C  AND  CAS  ANO  ALSO  COMPUTES  WEAPONS  REPAIRABLE  ANO  SUPPLY  LOSSES. 

C  CALLED  BY  GROUND 

C  CALLS  E 1GENV,CVFW,MPR0D,CNTRYC 

C*  ••»»»«•«••••••••  •  •  ♦••••••••••••••• 

REAL  NSUTD,NTSUDT,INT0A,INT0E,1NTDS 


JCIOOl 


JCIDOl 

JCIOOl 


JCIDOl 

JCIOOl 

JCIOOl 

JOOOl 

JCIODl 
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000*0000090«0d900900e»009400000«0*»000d0«00»«««»»«»*0»00«0«00«0»000090009*09«»9 

COUHON/BBB/ 

00000009090C0099000«09000«000000««000*09«««»«««««»*««**0000000«00099000099*099* 
CaHHQN/TNF$C3/NC300(2) ,XC300(8 .2) . YC300(8.2) .  I  JCIOO 

0  NC0!1Dt2),XCQH0<8,2),YC0H0C8,2J.  I  JOOO 

•  FCLWL(1D,2)  I  JCIOa 

CaHHON/CCPH/  IWUR«W(8,2) 

0IHEN5IUN  EC AX  SR (230 ) , E COX  SR (2CO > , V0ACt200 ) . VDDC (20Q ) 

01  MENS! ON  MS (10,2) ,AAkA (>0, 10 .2 ) . AAWO ( 10 . 10 .2 > , 

1  RWAKV((10,1C,2),PH3KW(10,10,2I.AAmA(6.10.2I. 

A  AAMO (6, 10 ,2) .PAAKM (7, 10 ,2) ,PACKW(7,ia.2). 

2  BSUP.dOO)  ,RSUH(  100  )  ,  V  I W  AC  F  (  1 0  .2  )  ,  V(  WOCF  (10 ,2  )  . 

3  VIAACFl (0 ,2) , VIAOCF (10,21 , WVOAT ( 1 0 1 , TYPCAF ( 8 ) ,T YPCOF ( 8 ) , 

A  VLS(2) ,hVOOT( 10) f XVOAC( 200) , WVOOC  (200 ) , PCS ( 2 ) .SUHH ( 1 0  )  , 

5  TSC(2)  ,PLS(8,2)  iWLS(>0t2)  i&KCS(  10  ,10,2). 

6  AKGS(7, 10 ,2) , IHOLD (2) 

OIKEIJSION  TSL  (8,21  ,TWS(2) 

01  KEN’S  I  ON  VL0AS(I3,e,2)  ,C0ACS(B,2) 

HOT^JCOM 

C  A)  ADJUST  THE  STANDARD  ALLOCAT(ON. 

C  TH(S  SECTION  EXECUTED  ONLY  ON  FIRST  CYCLE  OF  CAME 

IFOCYCLE.NE.I  1  CO  TO  A99 
00  A50  L->  ,2 
N3-NW(L ) 

K  =  3-L 
NA=NW{K) 

NS<NAH(LI  C  JCIOO 

00  A30  KH>1,NA 

IF  (PWSFIKR  ,K  I  .EQ.O.D)  CO  TO  A)5 
00  AOS  )W«1,M3 

SAUA(1W,KH,LI>SAWA( IW,KW,L>/PHSF(KW,K) 

SAWOdW.KW  ,L  )>SAW0l  IH,KW,L  )/PU5F(KV,KI 
AOS  CONUNUE 

00  AlO  IAK>) ,NS 

SAHA(  (AH,K’,(,L)  =SAHA(  )AM,KW,L  »/PWSf  (RW,K) 
SAHO(IAK,K)T,L)»SANO(IAM,KW,L)/PhSKKW,K) 

AlO  CONTINUE 
CO  TO  A30 

A15  DO  A20  1V.1,N3 

SAWAI  IH,KW,L  )>0.0 
SANDI  1W,KK ,L )>0.0 
A2D  CONTINUE 

OU  A2S  IAH>1 ,NS 
SANA  (  (AH,KW,L  )  ‘0.0 
SAKDI  IAH,Kk,L)  ‘0.0 
A2S  CUNdNUE 
A30  CONTINUE 
ASD  CONTINUE 


00  2S03  )W>1,N3 

WVOAT (IT )=WVOAT( IT) ♦V(WACF( 1W,11«TW0(IK,ITI 
WVODTOT  )  =  WVOOT(  IT)-»VI  WOCF  (1W,L)  •TWOdW,  IT) 

2503  CONTINUE 
250A  CONTINUE 

DO  252S  IDS>N1,N2 
ID‘(DLABA(  IOS.IS) 

IT.ITD(IO) 

WV0AC((0I‘0. 

WV00Cd0)=0. 

COHO‘0. 

00  2505  (Wd,N3 

WVOAC((D)‘WVOAC(IO)4V)WACFd  W,L)*WOIV(IW.ID) 
WVODCdO)‘WVODC(ID)«VIWOCF(IW,L)*WOIV(IW,)D) 
TOEW.TKOdW,  )T  1 

(F(TOEW,CT  .0.)C0H0  =  C0HD-*FCLWLtlW,L  )*W0IVdW,10J/T0EW 
2505  continue 

c  calculate  effectiveness  of  personnel. 

PPS  =  POIV(IO)/TPO(IT) 


t  JCIOOI 

I  JCIOOI 
I  JCIOOI 
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CALL  CVFk(NE AEF(L) .7 AE F ( I . L i . Y AEF 1 1,L t ,PPS, PEA  I 
CALL  CVFWINEDE  F(L1 ,XDEFI I ,L1 ,YO£F{ I,L» ,PPS,PEO> 

EDAXSR(ID)  ^AK)N1((HVDAC(  lOl/MVOATCnn.PEAl 
EDDXSKE  ID)  =AK  I  N!  (  UVDDC  (  ID  i/HVDOT  1  IT  )  1  ,  PE  D) 

C  CALCULATE  EFFECTIVENESS  REDUCTION  DUE  TO  SUPPLY  SHORTAGE. 


DSH^SDIVIIDI/PCSDIIT) 

CALL  CVFWINSEFFIL) ,XSEFFtl,L),YSEFF(l,LI .DSH.SEFI 
C....  COMPUTE  C»»3  DEGRADATION  I  JCIOOl 

CALL  CVFWtNCOHDILI .XCOHD (t  ,L),YCOHDtl.LI tCOHD.CCCDI  I  JCIOOl 

C....  COMPUTE  C<>»3/D  EFFECTIVENESS  FACTOR  I  JCIODl 

CALL  CVFWINC3DDILI,XC3DD{I  ,LI,YC30D{1,LI,CCCD,EFFC3I  )  JCIOOl 

C  CALCULATE  DIVISION  EFFECTIVENESS  AND  GROUND  VALUES 

EFFDAtIDI  =  EFFC3»SEF»E0AXSR  (IDI  C  JCIOOl 

EFFDDII0)  =  EFFC3»SEF«E0DXSRH0I  C  JCIOOl 


IF( lOMU.EQ.S.OR.IOMU.EO.SI  CO  TO  6908 
EFFDAIIDI=EFFOA( I0I*F0EFCP{I0I 
EFF00II0I>EFFDD( IDI*FDEFCP(I0) 

6908  CONTINUE 

VDACdOI  ‘EFFOA  (lOI^WVOAT  (ITI 
V0DC(IDI=EFF00(I0)«WV00TdTl 
VGABAtlSiL I=VGA8A(IS.LI*VDAC{IDI 
VGOeAlIS.L  I^VGOSAtlS.LMVDOCdD) 

C 

IFdPRO.NE.ll  GO  TO  2525 
WRITE  IMOT.IIOI 
WRITE(MOT,.IOI  ID, IT 
WR I TE IMOT ,1111 

WRITE  (MOT,  22  I  WVOAC  (  ID  I  ,  WVDOC I  ID  I.,HVDAT  I  IT  I  ,  WVDDT  ( I  T  I ,  EDAXSRt  I D  I  , 
X  EODXSR  dOI  ,CFFDAdOI  ,EFFDO(IDI  ,VDAC1IDI  ,VDDC1IDI 
WR ITE (MOT ,1121 

WRnEIM0T,22I  PE  A,  PE  0 ,  DSH,  SEF 
2525  continue 
2530  CONTINUE 

IF(IPRU.NE.I)  CO  IQ  3000 
WRI(E(M0T,I13I 

WRITE (MOT, 22  I  ( ( VG A B A ( I S ,l I , VCDBA ( IS  ,L  1 1  ,L •  1  .2 1 

t  30)  CALCULATE  AIR  VALUES  ON  ATTACK  AND  DEFENSE 

3000  DO  3020  L:I,2 
VAABAdS.LdO. 


SUBROUTINE  TC 


SUBROUTINE  TC  IS  THE  MAJOR  THEATER  CONTROL  PROGRAM  AND  HANDLES 
A  MAJOR  PORTION  OF  THE  BOOKEEPINC  EFFORT  REQUIRED  BY  TACWAR. 
called  by  tmain.  calls  AIRASG,  APORTN,  CNTRYC,  CVFM,  IIBA,  MSREAD, 
MSWRIT,  NXOIV,  SECWTH,  TAG 

ALSO  CALLS  2ND  HALF  OF  ORIGINAL  ROUTINE  (TCXXI 
REAL  NSUTD,NTSUOT, I NTOA , I NTD E , INT05 


CllHM(iN/hPli/ 


C0HH0N/TNFSC3/NC3DD(2) ,XC30D{8,2I,YC3DDIB,2I ,  I  JCIOOl 

•  NC0MD(2I,XC0HD{B,2I,YC0HD(B,2I ,  1  JCIOOl 

•  FCLWLI10,2I  I  JCIOOl 

COHMON/TCO/SDD I V  d AO  I ,SOSN (951 ,SDA8FS(81  ,SDABRS(81 , 

«  ITESCie,6I,ITEHL(8,3,21  , 

•  IW0KKI(301 , IW0RK2(3D1 ,1WCRKI30,2I .RWNABA ( 10 , 1 ,2 1  , 

•  RPNAeA(l,21  ,VDDSFd<,01  ,SUMH(10I,HNDABA(10,1A01, 

•  PNDAOAdAOl  ,lDDABA(I<iDl  , 

«  ST0R1(3,6 ,21 ,ST0R2{3,S,21 , 

•  lABASKBI, 

•  DISTBPI81 ,FRACDS(B1 ,P2L0NC(8I, 

•  WVDDC  (lADI  .WVDACdAOl  ,  IRDABA(21,TKNDIV(101, 

•  SUNDIVI7I ,SUAI71 
DIMENSION  ASIDE(2) 
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C  451  COMPUTE  Ef  FE  CT  I VENESS  OF  ALL  DIVISIONS. 

N2'D 

C  FOR  EACH  SIDE  L  DIVISION 

DO  455D  L*l,2 
N1  =  I *N2 
N2»N2*NDIL  1 
N3MtWlL  ) 

DD  <<52U  IU*NI.N2 
II  •  I  U>1  IP) 

WVI>AIIIU)>0. 

MVDDCHDI'D. 

CDMD=D. 

C  COMPUTE  WEAPONS  VALUE  ON  ATTACK  AND  ON  DEFENSE. 

DD  45D5  IW°1  ,N3 

WVDAC  IIDMWVDACI  ID)*VIWASF(IW,L)«WDIvnU.ID) 

WVDDCI IDI'VVDDCI ID)4VI WDSF  CIH.LI •WDIVIIH.IDI 
TOEW^TWD  II  H,  IT  ) 

IF (TOEW.CT .D .}CQHD>CaMD«FCLWL( IW.L I«WDI V(I W . I D l/TOEU 
45D5  CONTINUE 

C  USE  PERCENT  PERSONNEL  STRENGTH  IPPSI  TO  DETERMINE  PERCENT 

C  COMBAT  EFFECTIVENESS  ON  ATTACK  AND  ON  DEFENSE. 

PPS=POIV(IDI/TPDIITI 

CALL  CVFWINFAEF(L) .XAEFI I , L 1 ,YAEF I  1 ,L I .PPS.PE A I 
CALL  CVFWENEUEFILI.XDEF ( I , L I , YDE F ( I ,L I ,PPS ,PE D I 
C  USE  DAYS  OF  SUPPLIES  ON  HAND  TO  DETERMINE  SUPPLY  EFFECT.  FACTOR. 

DSH=SDIV(ID)/PCSD(ITI 

CALL  CVFWCNSEFFIL) .XSEFF  II  ,LI .YSEFFII.LI .OSH.SEF I 
C....  COMPUTE  C»«3  DECRADATION 

call  CVFWINCOMDIL) .XCDMDII ,L  1 1 YCOMDI I ,L I tCOMD ,CCCD I 
C....  COMPUTE  C««3/D  EFFECTIVENESS  FACTOR 

CALL  CVFWINC30DILI  ,XC30DII  , L  1 , YC3DD1 1  ,L I  ,CCCD ,I Ff  CJ I 
C  COMPUTE  IFff  Cl  IVENESS  OF  DIVISION  (IN  ATTACK  AND  ON  DEFENSE. 
EEFDAUOI  =  tf  FC3*SEF9AHINHIHVDACllD)/UV0ATS)ITn,PUI 
EFF0DU0I«EFFC3«SEF»AMINI(  IVVOOCdOI/VVOOTSCITII  ,P£D) 
IFIIEjMU.EQ.S.OR.IOMU.EO.S)  CO  TO  6908 
£FFOAUOI«£FFOA(  lOI  »F0EFCP  (ID) 

EFFOOIIOI>EFFOOIIOI«FOEFCPno) 

6908  CONTINU£ 


C  9DI  COMPUTE  EFFECTIVENESS  OF  DIVISIONS  AND  ORDER  DIVISIONS  IN  FIRST 
C  INACTIVE  8ATTLE  AREA  ACCORDINGLY. 

N2-D 

DD  9D5D  L-I,2 
NI  *I «N2 
N2  =  N2«ND(L  I 
N3  =  NM(LI 

C . DETERMINE  EFFECTIVNESS  OF  DIVISION  ON  ATTACK  AND  DEFENSE. 

DO  9D2D  ID*NI,N2 

IT^ITDIIDI 

MVDAC(IDl-D. 

UVDDCIIDI'D. 

CQMD  =  D. 

C  COMPUTE  WEAPONS  VALUE  ON  ATTACK  AND  ON  DEFENSE. 

DO  9DC5  IW=I ,N3 

WVDAC  I  ID  I'VVOACI  lOMVIWASF  I IW  ,L  I  AW  OIV  t  IW  ,  ID  I 
NVDDCIIDI^NVDDCI I0IaVIWDSF(IW,LI>WOIVIIW.IDI 
TOEM.TWDdW.IT  I 

IF  I  TOEW.CT  .D.ICOMD«COMD«FCLWLlIW  ,L  l•I^OIV^IW  ,  I  DI/TOEW 
90D5  CONTINUE 

'C  USE  PERCENT  PERSONNEL  STRENGTH  IPPSI  TO  DETERMINE  PERCENT 

C  COMBAT  EFFECTIVENESS  ON  ATTACK  AND  ON  DEFENSE. 

PPS  =  PDIVIID)/TPDIIT  I 

CALL  CVFWINEAEFILl.XAEFll.LI ,YAEF( I ,L I .PPS.PEAI 
CALL  CVFW(NEDEFILI,XOEF(I,LI,YDEF|I,lI,PPS,PEDI 
C  USE  DAYS  OF  SUPPLIES  ON  HAND  TO  DETERMINE  SUPPLY  EFFECT.  FACTOR. 

D5H  =  SDIV()DI/PCSDUTI 

call  CVfWItlSlF  F  ILI  .XSEFF  U  ,L  > .  TSl  F  F  1 1  .1 1  .OSH  .  St  F  I 


I  JCIDDl 


I  JCIDOl 
I  JCIDOl 


t  JCIDDl 
I  JCIODI 
I  JCIODI 
I  JCIDDl 

C  JCIDOl 
C  JCIODI 


I  JCIODI 


I  JCIDDl 
I  JClOOl 
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C....  CUMPUTC  OjCkADATIUN  I  JOOOl 

CALL  CVf  KLtUUHOiLI  t  XCUHOtl  ,L  )  .YCOHOl  1,L)  ,CnHO,CCCO)  I  JOOOl 

C....  COMPUTE  C»»3/D  E  f  F  E  C  T  1  VE  ME  SS  FACTOR  I  JOOOl 

CALL  CVFWi  NC.lDCCLl  t  AC31)Utl  ,0  ,YC300t  1  ,L  1  iCCC0,EFFC31  I  JOOOl 

C  COMPUTE  IFFKT  IVEMEiS  OF  DIVISION  CN  ATTACK  ANO  UN  OEffNSf. 

EFFOA  II  01  =  EF  FC30SEF  AAMINlt  (WVDAO  101 /WVDATSl  IT  1 1  ,PEA  I  C  JOOOl 

EFft)UIIOI  =  EFEC3«5EF»AMINU{WVDOC(IDI/MVOOTSIlTII  ,PEOI  C  JOOOl 

IF  (IDMU.ia.3.0R.IOHU.E0.SI  CO  TO  0909 
Ef  fOAIIOI  =  Ef  FDACIOI«f  OCFCPCIOl 
EFFDUn01*EFFOD(  IDI*FO£FCP(IOI 
0909  CONTINUE 

SUBROUTINE  TIMET 

C  THEATER  CONTROL  ROUTINE  FDR  1/0 


C  TIMET  PROCESSES  ALL  RESOURCE  CHANCES  THAT  OCCUR  DURING  THE  WAR 

C  CALLED  BY  TMAIN 

C  CALLS  ASSIGN,  MSREAO.  MSHRIT.  CVFW 

REAL  NSUTO.NTSUOT.INTOA, INTOE, INTDS 

•««•«« 00 00 oodd«4ttooo*e*ooo««o«o 00 *««««»•««• 
C0HN0N/E6B/ 

DIMENSION  IREC(21l,ZREC(21t,ZEP0(ll,lVAL(lSI  .ZVALdSI 

COMHON/TNFSC3/NC300  {2I  ,XC300IB.2I,YC3D0(B,21  .  1  JOOOl 

•  NCOMOIZI  ,XC0M0(B,2I  ,YCDH0tB,2l  .  1  JOOOl 

•  FCLWL<10,2I  1  JOOOl 

EQUIVALENCE  { I REC( I  1 ,ZR EC ( 1 1  I , ( ION , I  RE C 1 1 1)  .  ( IFN . IRE C  (2  I  I , 

•  (KBA.IRECIBII ,{KREG.lREC(10ll.(KSA.IRECt9ll ,(IT,IREC17II, 

«  <  IRECIAl , I lOI , 

»  ( ICOOE, IREC (3 II ,(1ST,IREC<AI I ,<IT0,IREC(5I I .(llNC,IRECt6| I , 

•  (  IVALd  I ,  IREOTI I  ,( IVALIl  l.ZVALIl  1 1  ,  t  NEPO  ( 1  I ,  ZE  PD  ( 1  1 1 
ITTdTTO 

ITT=15 


C  101  READ  TlME-T  INPUTS 
C 


UV00*0. 

C0M0=0. 

DO  910  IW*1,MM 

WV00  =  WV00«VI  WOSFd  W.Ll  «W01  VIlW.l  10  I 
TDEW  =  TN0«1W,ITI 

IF  (TCEW.CT  .0.1  COMO  =C0M0*FCLWH1W,L  l•WDIVHW,  I  10  I /TOE  W 
910  CONTINUE 

C  COMPUTE  DIVISION  EFFECTIVENESS 

PPS=P0IVn  lOl/TPOLlTl 

CALL  CVFWINEOEFILI,  XOEFd.LI  ,Y0EFC1,II,PPS,PE01 
DSH^SDIVU  lOI/PCSDI  ITl 

CALL  CVFWINSEFFILI . XSE FF ( 1 ,L I , Y5EF Ft  1 ,L 1 ,D5H,5EFI 
C....  COMPUTE  C*»3  DEGRADATION 

CALL  CVFWINCOMOl LI .XCDMO II .L > , YCDHD I 1, L 1 .CDMD ,CCCO I 
C....  COMPUTE  C»*3/0  EFFECTIVENESS  FACTOR 

CALL  CVFWINC3D0ILI , XC300II ,L I , YC30DI 1 , L I ,CCCD ,EF FC3 I 
EFFDDd  lOI  =E  FFC3*SEFoam1N1  KHVOO/HVODTSI  ITI  I  ,PEDI 
IFIIOMU.EO.B.OR.IDHU.EO.SI  GO  TO  6908 
EFFDOd  lOI  =CFF00dl0l  oFOEFCPIIlDI 
6908  CONTINUE 

C  ASSIGN  DIVISION  TO  A  PARTICULAR  LOCATION  IN  THEATER 

CALL  ASSIGNdDN,  IIO.KBA  ,KSA,KREG,L  I 
18ALD d lOI 'KBA 
NDIBAIKSA, LI =N0I8A(KSA,L lot 
J=NDIBA(KSA,LI 
10LieA(J,KSA,LI  =  II0 
GO  TO  8  7 
81  CONTINUE 
RETURN 
END 


I  JCIOOl 


I  JCIOOl 
I  JCIOOl 


I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
C  JCIOOl 
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A-2.  NUCLEAR  DELIVERY  SYSTEM  AVAILABILITY 


This  section  completely  lists  subroutine  DSDEG,  which  determines  the 
several  delivery  system  degradation  factors;  subroutine  NUCCCD,  which 
determines  the  C^/D  factors  of  airbase  assets;  and  function  NWHINV,  in 
which  the  delivery  system  degradation  factors  are  used.  Also  included 
is  that  portion  of  subroutine  DAMEVL  that  is  modified  to  include 
adjustment  to  actual  airbase  operating  capabilities. 


SUSRQUTINE  OSOEG 

C  I  JClOOl 

C  OSO^C  DETERMINES  THE  FRACTIONAL  DECREASE  IN  DIVISION,  SECTOR,  AND  I  JCIDOI 

C  THEATRE  VEAPONS  SYSTEMS  BASED  OF  DECREASES  IN  DIVISION,  SECTOR  I  JCIODl 

C  AND  THEATER  ASSETS  SUCH  AS  WEAPONS  SYSTEMS.  SAM  SYSTEMS,  SSM  I  JCIDOI 

C  SYSIIMS,  AND  AIKDAStS  I  JClOOl 

C  ■  I  JCIDDI 

REAL  NSUTD,NTSUOT,INTDA,INTOE,INTDS  I  JCIDDI 


COMM0N/08B/ 


COMMON/TNFSCI/ INABF(8,2)  ,INA8R(8 ,2), INABZCZI 
.CaHMCN/INFSC2/NC3SD{2)  ,XC3SD(8,2I  ,YC3SD{8,2I  , 

•  FDDSAD(8,2I.FS0SAD{8  ,2 1 ,F TOSAD ( 8 ,2 1 , 

»  FA0DCC(21 ,ABSFCCC8,2),A8SRCC(8,2I,ABC2CC{2), 

®  FSSMCC(21 ,TSSMIK(8 ,2I,SSSHIM(8,2I ,SSSMIL  C8 ,21 , 

•  FSA'tCC(21  ,TSAMIR(3,21,TSAMIZ(2I  .SSAMIF  (3,21 
COMM0M/TNFSC3/NC30D  (21  ,XC3DD  (8  ,2  I  ,  YC3D0  ( 8  ,2 1  , 

®  NCOMD (21 .XCOMD (8 ,2) ,YCaMD(8,2l , 

®  FCLWL(I0,21 

COMHON/ENFSCA/NCOLY (21 ,XE0LY(8,2I , YE OLY (8 ,2 ,2 1 , 

«  JESC(8,3,2I,rwAUT(8,2I,IFPLS(8,2I, 

»  TEOPD (21 ,SEaPD(8 ,21 ,CT 1ME(8,2I 

REAL»8  ASTYr-(31 
DIMENSION  AS1DE(2) 

DATA  ASTYP ,ASI0E/*0IVISI0N ', ‘SECTOR  *, 'THEATRE  ', 'BLUE ’, 'RED  ’/ 
H0T=JC0N 
00  2  L  =  l,2 
TEOPDIL  1=0  . 

2  CONTINUE 

00  5  1S=I,NS 
NRR  =  D 
ND2  =  0 

00  10  L=l,2 
NWS=NK(L) 

NRT  =  NR(L  ) 

00  15  IR=1,NRT 
IRT=IR'NRR 

IFIIS.LE.NHSRCIRTHGOTO  IB 

15  CONTINUE 
WRITE(&,90DDI 

9000  FORMAT! M •  ,’NONRECDVERABLE  DATA  ERROR  -  SECTOR/REC 1  ON 

•  ‘INCOMPATIBILITY  IN  SUBROUTINE  OSOEC'I 
STOP 

16  CONTINUE 
FI=FAaDCC(L) 

F2=FSSMCC(L) 

F3»FSAMCC(L) 

SUM=f 2«f 3 


1  JCtOOI 
I  JCIDOI 
I  JCIDDI 
I  JClOOl 
I  JCIDDI 
I  JCIDDI 
I  JClOOl 
1  JCIODI 
1  JCIDOI 
I  JCIODI 
I  JCIDDI 
1  JCIDOI 
I  JCIODI 
I  JCIODI 
I  JClOOl 
I  JClOOl 
I  JClOOl 
I  JClOOl 
I  JCIODI 
I  JClOOl 
I  JCIODI 
1  JClOOl 
I  JCIDOI 
I  JClOOl 
I  JClOOl 
I  JCIDOI 
I  JClOOl 
I  JCIDDI 
1  JClOOl 
I  JCIDDI 
I  JCIDDI 
I  JCIDDI 
I  JCIDDI 
I  JClOOl 
I  JClOOl 
I  JClOOl 
I  JClOOl 
I  JClOOl 
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IF  ( INACKd  S.L)  .GT.O.ANO.INABZRl  .GT.OICOTO  17 

I 

JC  1001 

IFdNAeRdStLI'CT.O  .OR  .  INAB  Z  t  L 1  .GT  .0 IGOTO  19 

I 

JCIOOI 

F)=0. 

1 

JCIOOt 

F2«F2/5UH 

I 

JCIOOI 

F3«F3/5UK 

1 

JCIOOI 

GOTTI  17 

I 

JCIOOI 

19 

FdFMFI 

I 

JCIOOI 

17 

f  T0»0.5«FI  •(ABSRCCnS,Ll«ABCZCClLH«F2*SSHSRSdS,l)/TSSH)RI)S.LI*  I 

JCIOOI 

• 

O.S*f  3<>(ALR5R  ll.lR.Ll/TSAMIRl  IR  .  L  I*ALRSZ  tl ,  L  I /TSAH )  Z  (  L  I)  1 

JCIOOI 

TfUPOtD'TtLPOtLMnO 

I 

JCIOOI 

FI =FABOCClLI 

I 

JCIOOI 

F2»FSSMCCILI 

1 

JCIOOI 

F3=FSAMCCtLI 

1 

JCIOOI 

SUM=F2«F3 

1 

JCIOOI 

IFd  NABFd  S.LI  .CT.OICOTQ  21 

I 

JCIOOI 

FI  «0. 

I 

JCIOOI 

F2*r2/SUM 

I 

JCIOOI 

F3*F3/iUM 

I 

JCIOOI 

21  ESO*  FloABSfCC  dS.Ll  ♦  F3«BHRS  tl .  1ft.  L) /SSAM  I  F  UR .  L  I 

4 

1 

JCIOOI 

*  0.5<>F2<>(SSHSFS(l,IS.LI/SSSMIH(lS.L}«SSHSFS(2.1S.L)/SSSMtLIIS,L)) 

JCIOOI 

SEQPOdS.LI-ESO 

1 

JCIOOI 

EOO-0. 

I 

JCIOOI 

IFINDSI IS.LI .LE.OICQTO  18 

1 

JCIOOI 

N01*1*N02 

1 

JCIOOI 

N02  =  N02»N0SI IS.L  t 

I 

JCIOOI 

00  20  t0S-N01,N02 

I 

JCIOOI 

lO.IOLABAI IDS. ISI 

JCIOOI 

IT«ITOt lOt 

I 

JCIOOI 

00  22  IM-1,NWS 

t 

JCIOOI 

TOEH^TftOdK.ITI 

I 

JCIOOI 

IFtTOEW.GT.O.J  E00»E00*FCLHLdM,t.l«V0IVtl«.101/T0EH 

1 

JCIOOI 

22 

CONTINUE 

I 

JCIOOI 

23 

CONTINUE 

I 

JCIOOI 

E00»E00/N0SdS.Lt 

I 

JCIOOI 

IB 

CONTINUE 

I 

JCIOOI 

EDO'SORT (£OD»ESOI 

1 

JCIOOI 

CALL  CVFNINC3S0(LI.XC3S0(1  .LI  .YCaSOd.ll  .EOO.SOEC) 

t 

JCIOOI 

FOOSAOdS.LI-SOEC 

JCIOOI 

CALL  CVFHINC350CLI,XC3S0d  .LI.rC3SOIl.LI.ES0.50EGl 

I 

JCIOOI 

FSOSAOdSf  LdSOEC 

I 

JCIOOI 

CALL  CVFWINC3S0(LI.XC3S0d.L  l,YC3S0ll.ll  .ETO.SOEG) 

I 

JCIOOI 

FTOSAOl  IS.LdSOEC 

I 

JCIOOI 

NRR^NNR-tNR  (L  I 

I 

JCIOOI 

10 

CONTINUE 

1 

JCIOOI 

5 

CONTINUE 

1 

JCIOOI 

00  3  L=1.2 

1 

JCIOOI 

TEQP0(LI«TEQP0(LI/N5 

I 

JCIOOI 

3 

CONTINUE 

1 

JCIOOI 

IFdPRS.NE  .lIGDTO  50 

1 

JCIOOI 

WRITEIKDT.IOOI ICYCLE.INCYL 

I 

JCIOOI 

00  40  L=1.2 

I 

JCIOOI 

URITEIHOT.IOIIASIDE (LI ,( IS.tS«I.NSI 

1 

JCIOOI 

WRITE(M0T,102IASTTPI1I  .(F005A0dS,LI.IS-l.NSI 

I 

JC  1001 

KRITE(MGT,I02IASTYPI2)  ,(FSOSAOdS,LI.IS>l,NSI 

I 

JCIOOI 

WRITE (H0T.102IA5TrP 131 . IFTOSAOC IS.LI  .15«1.NSI 

I 

JCIOOI 

WRITE(MOT.103I 

I 

JCIOOI 

40 

CONTINUE 

I 

JCIOOI 

50 

RETURN 

I 

JCIOOI 

100 

FDRMATCl*. 'TABLE  N2A  CYCL  E*  .2X  ,  14.  I  BX. 'OEL  1  VERY 

SYSTEM  ». 

1 

JCIOOI 

•  'OECRAOATIUN  FACTORS  OUE  TO  CCC  0 EGRADAT ION • / lOX .  • 

SUBCYCLE' . 

I 

JCIOOI 

<>2X,I4/IX,I  I9IIH-I) 

I 

JCIOOI 

tot 

FORMAT  1  'O’  ,A4,  •  SI 0 E ' , 5X . • 5 E CTOR ' , 6X .8 1 1 2, BX 1 /51 2H 

-II 

1 

JCIOOI 

102 

FORMAT  1 *0' ,A8. •  SY 5 7  EM ' , 8X , 8  IF  7.3 . 3X 1 1 

t 

JCIOOI 

103 

F0RMAT1////1 

1 

JCIOOI 

ENO 

t 

JCIOOI 
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SUBROUTINE  NUCCCO  I  JCIOOl 

C  I  JCIOOl 

C  NUCCCO  DETERMINES  THE  C*»3/0  FACTORS  FOR  AIRBASE  ASSETS  AT  THE  I  JCIOOl 
C  END  OF  EACH  NUCLEAR  /  CHEMICAL  SUBCYCLE  I  JCIOOl 

C  JCIOOl 

REAL  NSUTO.NTSUOT, INTOA , INTOE, INTOS  1  JCIOOl 


C0MM0N/8B8/ 


COKMUN/TNFSCI/INABF 18,21 ,I NASR 18 ,2I,1NA8Z12I 
C0MHCN/TNFSC2/NC3S0(2I , XC3S0 (8 ,2 ) , YC3S0 1 8,2 1 , 

•  FOOSA018,2),FSOSAO{B,21,FTOSAOI8,2), 

•  FA80CC12) ,A8SFCC18,21,ABSRCCie .2I,A8CZCCt2), 

•  FSSMCC12) ,TSSMIR1B,2I,SSSMIH18,2),SSSMIL(8,2), 

•  FSAHCCI2) ,TSAMIR(3,2i,TSAHlZI2l,SSAMIF(3,2i 
C0MM0N/TNFSC3/NC30D  (21  ,  .XC300(8  ,2  I ,  YC300 (8 ,2  1  , 

•  NC0MD{2I ,XC0M0I8,21  ,YC0M0{B,2I, 

•  FCLWL(I0,2I 
REAL*8  ATYP<3) 

01  HENS  I  UN  NNA8F (8,21 ,NNA8RI8 ,2  I ,NN ABZ 1 21 . lOPTHCTl , I S 10 (7 1 
DIMENSION  ASI0EI2) 

DATA  ATYP/ 'FORWARD  REAR  COMMZ  •/ 

DATA  ASIOE/'DLUE ', ‘REO  •/ 

DATA  NNA8F  ,NNA8R  ,NNA8Z/3<i<>0/ 
data  IOPTH  /3, 2,1, a, 1,2, 3/ 

DATA  ISIO  /2,2,2,0,1,1  ,1/ 

HOT' JCON 
00  2  L'1,2 
NNABZ (L I '0 
■  ABCZCC(L1'0. 

00  3  IS'I.NS 
NNABFUS.L  1=0 
NNA8RtIS,L)=0 
ABSFCC( IS,L J«0. 

A8SRCC1  IS.D'O. 

3  CONTINUE 

2  CONTINUE 

CALL  TAG  1 N BA.NS • 1  ABAS, N0FA8, NORAS,  ISTAT) 

00  9  1*1, NAS 
1M0R0(13,I I'lOO 
IWOROdA.l  I'lOO 
lOC'IAFSAl I  I 
IS=H0D(LDC-1,NS1+1 
IST-ISTATI LOCI 
L'ISIOI 1ST  I 
H'lOPTHdSTl 
CO  TU  Ib,7,8,9),H 

C  OECSRF,R,C  •  OEGRAOEO  OPERATING  CAPABILITY  PER  NOTIONAL  BASE 
C  (FOKWAKU.REAK  or  COMHZ)  •  SUM  OF  OP.  CAP.  OF  ACTUAL  BASES  IN 
C  SECIUR  UIVIOEU  HY  NO.  ACTUAL  BASES 

6  A8SFCCIIS,L)<ABSFCC(IS.L|40CNUC(II 
NNA8FIIS,LI'NNABF(IS,L)«I 

GCITU9 

7  ABSRCC(1S,L1'AI!SRCC(1S,L1'0CNUC(II 
NNAIIRUS,!  l'NNAIiR(IS,L'l«l 

GUIUI 

8  ABC2CC(L1*ABCZCC1LI<0CNUCCI 1 
NNABZILI'NNABZILI'I 

9  continue 

00  S  L=1.2 
00  A  1S  =  1,NS 
IFl ICYCLE.GT.l ICOTD  10 
INABFdS,L)'NNABF(  IS,LI 
INA8R(IS,LI  =  NNABRIIS,LI 
INA82(LI  «NNADZ(LI 
10  CONIINUf 

IF  (INAtH  IIS,LI  .Lt.UIABSFCCdS,LI>0. 

IFdNABKdS.LI  .LE.0IA8SRCC(IS.LI=O. 

IFINNA8FI I  S,LI  .GT  .0  I A8SFCC  (  I  S ,LI  •A8SFCC dS,L )/NNA8F  (  I S  ,L  I 
IFINNASRdS.LI  .GT .0  I  A8SRCC  1 1  S ,  L I  >A 8SRCC  dS,L)/NN ABR 1 1  S  ,L  I 
4  CONTINUE 


I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl' 
1  JCIOOl 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JllOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
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IF  ( INABZd  ).LE  .0  IA3C2CC(L)'>0. 

IF (NNA8ZIL1 .CT .0  I AB CZCC I L I -ABCZCC ( LI /NNA8 Zt L I 
5  CONTINUE 

IFIIPRS.NE  .1  ICOTO  2D 
WRITE IMOT, IDOI  ICYCLE.INCYL 
00  ’aO  L  =  lt2 

WRITE (HUT , IDl) ASIDE (LI ,( IS ,IS>1«NSI 

WRITE  (HOT,  ID2)  ATYPI I  1 ,  (  (  NN  A8  F  (  IS  .L  I ,  ABSFCC  1 1  S  ,L  I  I  ,IS‘=1.NS) 

WR ITE (HOT, 1021 ATYP(2I ,( ( NNABR ( IS ,L 1 1 ABSRCC ( I S ,L I  I ,IS<1 .NSI 
WRITE(KOT,1021ATYP(31 ,NNA8Z(L1 .ABCZCCILl 
AO  CONTINUE 

20  CONTINUE 

RETURN 

IDO  FORKATI  M*. 'TABLE  01  CYCL  E  •  ,2X,  lA  ,18X  , 'A  I RBASE  DEGRADATION  *, 

•  'FACTORS  •/ 10 X,  'SUBCYCLE'.ZX.IA/lX.llOdH-I  I 

101  FORMAK 'O' ,Aa.  •  SIDE', 5X, 'SECTOR', 7X, 8(12, 10X)/S(2H  -I,13X, 

•  B( •«',2X,>DE&RA0E0  'll 

102  FORMAT! 'O' ,A8, ■ A IRB ASE S ' ,6X ,8 ( 12 ,2X,F5.3 ,3X I  I 
ENO 


I  JCIOOl 
I  JCIODl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIDDl 
I  JCIDOl 
I  JCIDOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIODl 


FUNCTION  NWHINV!  IWC,IWS,RI  YD,IPOS,IS,L,  IFLAGI 

c 

Q  •««•««« «o«*«o*«ooo«eoo«o«o«o««o«do»»«ooo»«»oo*o»eoo«»»o»»»»»«*»*o» 

C 

C  ROUTINE  ESTABLISHES  THE  CURRENT  INVENTORY  FOR  RIYD  YIELDS  FOR 

C  EACH  WEAPON  CATEGORY  IN  POSITION  IPOS  IN  SECTOR  IS  FOR  SIOE-L, 

C  IT  ALSO  establishes  THE  MAXIMUM  NUMBER  OF  ROUNDS  WHICH  CAN  BE 

C  FIREO  FROM  A  GIVEN  POSITION  ANO  RETURNS  THE  SMALLER  OF  THE 

C  TWO  VALUES  AS  THE  NUMBER  OF  ROUNDS  AVAILABLE. 

C  FUNCTION  NWHINV  IS  CALLED  BY  NUCWPS  AND  PREYLD. 

C 

C 

C  •«»«»«•»*»••»«•»«•«»»»*•« ««••>«•«««••« 

C 

REAL  NSUTD,NTSUOT,INTDA,INTOE,INTOS 
» »9 « «o eeo 90 »d«« do «o 0 e d«« eo* « 9 «««««« 


C0MH0N/8BB/ 

09 090 O 090 0 0 009 90 OO OO 09 oooooooooeoooo 09 OOOO 009 09000000000000000900000000000000000 


C0MMCN/LUCAL1/AIWC(3I  ,ASI0EI21  ,NIWAS,NN1WAS(2)  ,NPTt7,A,301  , 

X  IWLIDS(10D,2I,IWLC0T ( I  00 , 2 1 , I HLTZN ( 1 00 ,2  I 

1  ,IWLTLa(lDO,2I,IWLBT(100,21,IWL(100,2) ,WLYLD(100,2> 
X  ,XIVY(42.2I ,KIWYF (A2,2I ,KIUYL(A2,2) ,NNYOS (21 

2  ,WLCEP(100,2I ,(HLH06(100,2I 
COMHON/LaCAAl/NSFRO (4,2,21 ,NSFRS ( 5 ,2, 2 1 , 

1  NSFRr(5,2,2l ,NOT 

CaHHDN/AFSTF2/  AF0IH(22,4I 

C0MMaN/TNFSC2/NC3SD(2l  , XC3 SO ( 8 ,2 1 , YC3S0 (8 ,2 1 , 

9  F0DSAD(B,2I,FSDSA0(B  ,2)  ,FT DSAD ( 8  ,2  I , 

9  FAB0CC(2I  ,A8SFCCI8,21,AB5RCC!B,21,ABCZCCI21, 

•  FSSMCC(2 1 ,TSSMIR(8 ,2  I  ,SSSM  IM ( 6 ,2 1 ,SSSM 1 L C8  ,2 1 , 

*  FSAMCC(21 ,TSAHIR(3,2>,T5AMIZ(2>,SSAniF(3,2) 

C 

C  CHECK  FOR  MULTIPLE  YIELD 

C 

IYO«KIYD 

IF (lOLYLO!  INC, IMS,LI .EO.ll  IYD-1 
LIS=L929(IS-1I 
C 

C  DETERMINE  WEAPON  CATEGORY 

C 

GO  TO  (100,200,3001 ,IWC 
C 

C  DIVISION  WEAPON  SYSTEMS 

C 

100  NWHINV9NOWHO(IWS,IYD,LISI«FOSPOS(1W5,1POS,L) 

IF(IFLAG.E0.21  RETURN 


I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIDOl 


NNWFIR  9  NOWSI (IWS,IS,LI«FOSPOS(IWS,IPOS,L)9KNFRO(1W5,L19  C  JCIOOl 

9  FODSAO(IS,LI  -  NSFRDIIWS,IPOS,LI  C  JCIOOl 

IFINNWFIR  .LT.  NWHINV)  NWHINV  ’  RNWFIR 
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C 

RETURN 

C 

C  SECTOR  WEAPON  SYSTEMS 

c 

200  NWH)NV=NSWHStlWS,IYO,LIS>»FSSPaS(lWS,lPOS,LI 
IF  I  )FLAG.EC.2)  return 

c 

NNWFIR  ^  NSWSI (IWS,lS,LI»FSSPaS(lWS.)PQS,LI*HNFRSIIWS,LI» 

•  FSOSAOOSiL)  -  NSFRSdWS.IPOS.L) 

IFINNWFIR  .LT.  NWHINV)  NKHINV  'NNWFIR 

C 

RETURN 

C 

C  THEATER  WEAPON  SYSTEMS 
C 

330  NWH 1NV»NTWHT 1 1 WS . I YO . L I • FTSPOS (I WS  .1  PCS  .LI 
IF  (  IFLAC.E0.2I  RETURN 
C 

NNWFIR  =  NTWSI tIWS.IS,LI»FTSPOSIIWS,IPOS,LI*MNFRTtIWS,LI* 

•  FTOSAOtlS.LI  -  NSFRTIIWS.IPOS.Ll 
IFINNWFIR  .LT.  NWHINVI  NWHINV  «  NNWFIR 

C 

RETURN 

C 

END 


Subroutine  DAMEVL 


00  775  lAT  »  I  ,7 

c 

C . GET  NUMBER  OF  SHELTEREO  ANO  UNSHELTEREO  A/C  OF  TYPE  TAT  IN 

C  PARKING  AREA  IPR  IN  OROER  TO  CALCULATE  ACTUAL  AIRCRAFT  ANO 

C  SHELTER  KILLS. 

C 

RSH'O. 

NSUM'O 

00  750  IATT'1,7 

750  IF( IPSHLAI lATT.LI.LT.IPSHLAIIAT.Ll  I  NSUM *N5UM*NACTPA (I ATT , IPR I 
IF  INSUM.GT  .NSHPAIIPRI I  GO  TO  755 
RSH  =MINO  INSHPAIIPRI-NSUM.NACTPAI  lAT.IPRII 
755  RNUSH  »  FLOATINACTPAIIAT.IPRII-  RSH 

APOMCIATI  •  APOMIIATI  KNUSH'OAMM  (JPA I 
APOM  HAT  I-APOMMATI  *RSHeOAMS«JPAI 

APOHMtIATI  =  APOMMIIATI  4  RNUSH*  lOAMM  UPAI  -  OAHAUPAII 
APOMT IIATI 'APOMT II  AT  1 4RNUSH*0AMA I JPA |4RSH»0AH5 ( JPA I 


775  continue 

C  SHELTERS  OESTROYEO 

SHDM  '  SHDM  4  DAMSIJPA|4FL0AT(NSHPA{IPRII 
SHOMT  '  SHDMT  4  DAMS ( JPA l•FLOAT (NSHP A IIPKI I 
7B0  continue 
790  CONTINUE 

ARHLF  =  20000000. 

OLKLC  =>  ARC/ARHLF 
IFIOLKLC  .GT.  1.1  OLKLC  '  I. 

C  this  is  necessary  since  lethal  area. may  cover  more  than  AIRFIELO 
OLKLC  =  OLKLC»ARHLF«POENSS/IOOOOOO. 

CCTEM.  =  CCTEM  4  ARC^PDENSS/I  000000  . 

CFTEM  '  CFTEM  4  ARL»POE NSS/1 000000 . 

C 

C . PRINT  A  SUMMARY  OF  OAMAGE  INFLICTEO. 

C 

IFIIPRS  .NE.  I  I  GO  TO  bOlG 

WRITEIINtl.bOlSI  IAB,0LKLL,0LKLC,(AP0MIIACTI,IACT«1.7I  .SHOHi 
•  TMPLOW 

6016  continue 
c 

C . UPOATE  NUMBERS  OF  A/C  SHELTERS  ANO  PEOPLE  ON  AIRBASES 

C 


C  JCIOOI 
C  JCIOOI 


C  JCIOOI 
C  JCIOOI 


C  CJIOOl 


I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
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OU  810  1AI*1,7 

IXOROl )AT, 1A8) ‘)waROI)AT.IAB)-IFtXtAPDH{|AT)) 
IF  OkaROtlAT.IABl.LT.O)  lUORO  (I  AT  ,  IAS )  <0 
810  CONTINUE 

IRaROIll.IABI-IWOROIlI.lAai-IFIXISHOH) 
IFIIWaRUIll,  IA8I.LT.D)  I  WORD  1 1 1.  I A  8 1  >^0 


IiiaR0n2.IAB)-lMaR0(12tIAB)-lFlX)0LKLL)  I  JCIOOI 

IFdWCROLW.IABl.LT.O)  I  WORD  (12 1  I A  BMO  1  JCIOOI 

IFilRHL  -LT.  O.OOOn  t.0  TU  811 
TEHP=  IWIlROIia,  lAB) 

IJUROII  J.)  Abl  =  TlKP»ll.-OLKLL/TI’HLl  ♦  .S 

811  CONDNUE 

C  (ALtULATt  (APAIIILITY  OF  AIRBASE  INOEXEO  BY  lAB  I  JCIOOI 

T£HP>)RURDI13,  lAb)  I  JCIOOI 

TEMP*1. -TEMP/100.  1  JCIOOI 

CALL  CVFMlNQCOPC(L2l,xaCOPIl,L2I.YOCOPIl,L2),TEMP,PD^6)  I  JCIOOI 

ABOEG^AKtNIIPOEG.TMPLQW)  1  JCIOOI 

OCNUCMAB)  •aCMUC(IABl«ABOEG  1  JCIOOI 

DO  812  lAT  •  1,7 

CADAHI IAT,L2)  ^  CAO AM  1 1 A T . L2 I  *  APOHM(IAT) 

812  CONTINUE 
220  CONTINUE 


C  END  OF  DO-LnOP  ON  NUCLEAR  FIRE  MISSION  I  8ECUN  IN  SECTION  300 

II  INAIM  .r  u.  0  1  GO  1(1  22  1 
C  Ui'UA  I  I  I  (II  Al  S 

TCANAf  (JS,L2I  >=  TC  ANAF  ( JS  .L  2 )  «  OLKLLT 
00  813  lAC  >  1,7 

TDSNAC1IAC,JS,L2I  •  TOSNAC ( 1  AC , JS ,L2 )  *  APDMTIIAC) 

TOMNACI lAC ,JS,L2)  -  TOMNAC I lAC , JS, L2 )  «  APDKMllAC) 

813  CONTINUE 

TOSNASl JS,L2I  «  T0SNASIJS.L2I  *  SHDMT 
IFIIPRS  .N£.  II  CO  TO  6021 

WRITEIINQ, 60201  OLKLLT,  (APOMTI I  ACT) , lACT  «  1,71, SHDMT 
6021  CONTINUE 

221  continue 

C 


A-3.  NUCLEAR  ESCALATION  DELAY 


This  section  completely  lists  subroutine  EDELAY,  in  which  the  delay 
in  the  preferred  nuclear  escalation  state  is  determined,  and  subroutine 
NUC1,  which  calls  EDELAY. 


SUBROUTINE  EOELAY 

c 

c  •**oo»«»oo«o*»ooo«o**«««*««««« 

C 

C  ROUTINE  DETERMINES  THE  PROPOSED  AND  CURRENT  STATE  OF  NUCLEAR 

C  ESCALATION  AND  THE  DELAY  TIME  BEFORE  THE  PROPOSED  STATE  CAN  BE 

C  ACTIVATED. 

C 

C  *0. o»*o oo*oo«o»o 

C 

REAL  NSUTD .NTSUDT, I NTOA , INTO E , INTO S 


CDHM0N/BB8/ 


COHHON/TNFSCN/NEOLY(2I,XEOLY(6.2I,YEOLY(8.2,2I,  I  JCIOOI 

•  JESC(8,3,2),1HAUT(6,2).IFPLS(B,2),  I  JCIOOI 

*  TE0PDI21,SEQPD18,2),CTIME18,2I  I  JCIOOI 

REAL*8  A0UT(81 .ANQNE.ADELAY.APRES  I  JCIOOI 

real*',  A5I0EI2  I,0TIHE(81  ,C0HM018I  1  JCIOOI 

OATA  ANONE  ,A0ELAY,APRES/ '  NONE  *,*  DELAYED',’  PRESENT'/  I  JCIOOI 

DATA  ASIDE/'8LUE  S’RED  '/  1  JCIOOI 
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1N0= JCUN 

1 

JCIOOl 

IF  1 1 PRS.NE  .0  IHRITE 1 IN0.90001 ICYCLE iINCYL t(l5 tIS«l tNS) 

1 

JCIOOl 

00  1000  L‘1,2 

I 

JCIOOl 

00  1200  IS°1.NS 

I 

JCIOOl 

OELRY=0. 

1 

JCIOOl 

CDE&=SORT(TE8PO(LI»SEOPO( 15,111 

I 

JCIOOl 

COHMOdSl^CDEO 

I 

JCIOOl 

00  1205  nc«i,3 

1 

JCIOOl 

IFI  JESC(  I5.1TC  .LI.LT.O.OE.JESCdS,  ITC,  L  1  .GE  .  1  ESC  (  IS ,  ITC ,  L 1 1 

1 

JCIOOl 

•GOTO  1205 

I 

JCIOOl 

nHP=lESC(lS,ITC,Ll 

1 

JCIOOl 

IE(JESC(IS,ITC,L1.ME.011IMP'-1TKP 

1 

JCIOOl 

JESC(  IS,  ITC.Ll 'ITMP 

r 

JCIOOl 

1205 

lESC(lS,ITC,Ll-0 

j 

JCIOOl 

lFllkAUT(lS,Ll .NE.OIGOTO  1215 

1 

JCIOOl 

00  1210  ITC=^1,3 

I 

JCIOOl 

IF(JESC(IS,ITC,L1.NE.01COTO  1220 

1 

JCIOOl 

1210 

CONTINUE 

1 

JCIOOl 

CT IME IIS,L 1*0. 

I 

JCIOOl 

DTIMEHSI*0. 

I 

JCIOOl 

GOTO  1200 

1 

JCIOOl 

1220 

II<AUT(lS,Lld 

1 

JCI 001 

CTIMCCIS.LdO. 

1 

JC  1001 

1215 

IFtIFPLS(IS,Ll  .NE.OIGOTO  1225 

JCIOOl 

CALL  CVFWINEOLYILl ,XE0LY(1 ,L 1 , YEOL Y( 1 , 1 ,L l,COEC ,OEL A VI 

I 

JCIOOl 

GOTO  1230 

1 

JCIOOl 

1225 

CALL  CVFWINEOLYILl ,XE0LY(1 ,L 1 , YEOL YI 1 , 2,L 1 ,COEG,OELA Y 1 

1 

JCIOOl 

1230 

CT  IHE  IISiL  I'CT  IHEI1S,L1«12./NN5C 

1 

JCIOOl 

07  IMl  I  ISl*  DI  LAY 

1 

JCIOOl 

IF(OELAY.GT.CIlHE(IS,LI|GaTa  1200 

1 

JCIOOl 

00  1235  nc>l,3 

I 

JCIOOl 

lESClIS,  ITC,l1‘1ABSUESC(IS,1TC,LI  1 

1 

JCIOOl 

1235 

JE5CI1S,1TC.L1«0 

1 

JCIOOl 

lwAJTtlS,Ll°0 

1 

JCIOOl 

1FPLSIIS,LI*1 

I 

JCIOOl 

1200 

CONTINUE 

1 

JCIOOl 

11  lll'kS.I0.01GIITi:i  1000 

1 

JCIOOl 

wRIll  I1N1I,90U51ASI0E(L1 

1 

JCIOOl 

00  1020  1S>1,NS 

1 

JCIOOl 

AOUTIISl’ANQNE 

1 

JCIOOl 

IFIIWAUT1IS,L1 .EO.OIGOTO  1015 

1 

JCIOOl 

AOUI IISl »AOELAY 

1 

JCIOOl 

GOTO  1020  . 

1 

JCIOOl 

1015 

00  101b  ITC=1,3 

I 

JCIOOl 

1FIIESCIIS,1TC, LI. NE.OIGOTO  1018 

1 

JCIOOl 

1015 

CONTINUE 

1 

JCIOOl 

GOTO  1020 

) 

JCIOOl 

lOlB 

AOUTIISl'APRES 

1 

JCIOOl 

1020 

CONTINUE 

1 

JCIOOl 

WRITt  11  NCI, 9001  ICAOUTIISl  ,1S>I,NS1 

1 

JC  1001 

wRiTriiNn,'5nn2itciiMFiis,Li,iS'i,N5i 

T 

JC  1001 

WRITllINU,90031IOTIHtlISl,lS>l,NSl 

1 

JC  1001 

WRITE  IIN0,900<>  IICONHOCI  SI ,  1S=>I  ,NSI 

1 

JCIOOl 

1000 

CONTINUE 

1 

JCIOOl 

9000 

F0RMRTI////1X, 'TABLE  NBA  CYCLE  ',I9,5X,'0ELAYEO  ESCALATlON'/lOX 

,  I 

JCIOOl 

P'SUBCYCLE  •,IA/1X,119I1H-1//7X, 'SECT0R',5X,8II1,9X1/1 

1 

JCIOOl 

9001 

FORMATCIX,'  ESCL  STATUS  ’I0(R8,2XII 

1 

JCIOOl 

9002 

FORMATIIX, ’CURRENT  TIME  ' 1 0 CF8 . 1 , 2X 1 1 

1 

JCIOOl 

9003 

FORMATIIX,’  OELAY  TIME  • 1 0 IF 8 . I , 2X 1 1 

1 

JCIOOl 

9309 

FORMAT  1 IX, ’COMHO  OECRAO  ’ 10 1 F8 .4 , 2X 1 1 

1 

JCIOOl 

9005 

FORHATI ’0’ ,A4, •  SIDE'/5C2H  -11 

I 

JCIOOl 

RETURN 

C 

END 
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SUBROUTINE  NUCl 
C 

c 

C  SECONDARY  CALLING  PROGRAM  FOR  THE  ROUTINES  HHICH 

C  DETERMINE  NUCLEAR  ESCALATION  STATES,  DETERMINE 
C  THE  NUMBER  OF  NUCLEAR  WEAPON  SYSTEMS,  AND  REALLOCATES 

C  STOCKS  Of  NUCLEAR  WARHEADS  TO  SUPPLY  POOLS. 

C  SUBROUTINE  NUC I  IS  CALLED  BY  NUC  AND  CALLS  THE 

C  FOLLOWING  ROUTINES  ESCLAT,  NOSYIN  AND  WHINUP. 

C 

C  ad  90 «««*«« 

C 

REAL  NSUTO,NTSUOT,INTOA, INTOE. INTDS 

ddOaodd»aadda»ddddd99dddddddddd»d9dd«d«dddddd9dddddddddeddd»ddd***ddee*»eee*d«d* 

COMHDN/BBB/ 


COMMON/LOC AL1/AImC( 31 .AS  IDE (21 ,N IW AS.NN I  MAS ( 2 ) .NPT 17 ,A ,30 i , 

X  IWLIOS(100.2 I .IHLCOT (100,21,1 WLTZN(100f2l 

1  .INLTLOI  100.21,  IULBT(100,2)  .lULdOO.ZI  .WLYL0(100,2) 

X  ,XIWY(A2,2),KIMYF(42,21,KIWYL(A2,2),NNYDS(2I 

2  .MLCEP(100,2I .IWLH0B(100,2I 
C0MM0N/L0CAA1/NSFRD(4,2,2) ,N SFRS ( S .2 .2 1  . 

1  NSFRI (S.Z ,2) .NOT 

CDHM0N/AFSTF2/  AFDIM(22,4I 
C 

ISdKISS 

C 

C  DETERMINE  ESCLATIDN  STATE 

C 

C 

CALL  ESCLAT 
C 

C  DETERMINE  IF  THIS  CALL  MAS  ONLY  FOR  ESCLATIDN  STATES 
C 

1F(KFLAC.EQ.2I  CO  TO  100 

c 

C  DETERMINE  NUMBER  OF  NUCLEAR  DELIVERY  SYSTEMS 

c 

c 

CALL  EOELAY  I  JCIOOl 

C 

DO  10  IS»1,NS 
'  DO  ID  ITC*I,3 
DO  10  Ldl,2 

IFdESCnS.ITC.Ll.NE.OI  GO  TO  50 
10  CONTINUE 
CO  TO  IDO 
50  CONTINUE 
CALL  NOSYIN 
C 

C  REALLOCATE  INVENTORY  OF  NUCLEAR  WARHEADS 
C 

CALL  WHINUP 
C 

IDO  CONTINUE 
RETURN 
END 
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A-4.  TARGET  ACQUISITION  PROCESSING  DELAY 

This  section  partially  lists  subroutines  TARACA  and  TADPAR,  in  v^ich 
the  target  acquisition  parameters  for  active  and  reserve  division 
targets  are  determined. 


SUBROUTINE  TARACA 

c 

•«•••«»•«•«••••««««•««•••«••««••••••••••••••••••«•<>*••••••••••«••• 

C  TARACA  SIMULATES  ACQUISITION  OF  TARGETS  IN  THE  ACTIVE  BATTLE  AREA 

C  OF  A  GIVEN  SECTOR  BY  GROUND.  ARKY-AIR  ANO  AIR  FORCE  SENSORS 

C  SENSORES  hay  OPERATE  IN  STANDOFF  IFIXEO  OR  VERTICALI,  STANDOFF 

C  (HOVINGI  OR  PENETRATING  NODE 

C  SENSORS  KAY  BE  CONTINUOUSLY  OPERATING  OR  GLIMPSE  SENSORS 

C  CALLED  BY  TARACO 

C  CALLS  TARACE 

C 

REAL  NSUTOtNTSUOT, INTOA, 1N7DE, INTOS 

COMMON/SBB/ 

0000000000000000000000000000000000000000 00 00000000000000000000000000000000000004 

COMMON/TNFSCl/ INABF(8,2I . I NA8R (8 , 2  I , INAB2 12 1 
C0KK0N/TNFSC2/NC3SD(2I ,XC3SD(8,2I  ,YC3SDI8.21  , 

•  F0DSA0(8,2),FS0SA0(8,2I.FT0SA0te,2I, 

•  FAB0CC(2I  .ABSFCC(8.2I.ABSRCC(8,2I,ABCZCCI2U 

•  FSSMCC(2I .TSSKIR(8.2I.SSSKIK(8.21.SSSNIL(8.ZI . 

•  FSAMCC(2) ,TSAMIR(3,2I ,TSAKI2I2I ,SSAKIFI3,2I 
COKMON/TNFSC3/NC3CO(2) ,XC3DDI8 ,2 1 . YC 300( 8 ,2 1  , 

•  NCOMO(2I,XCOKD<8,2I ,YC0K0(8,2I, 

«  FCLWLdO.ZI 

COKHON/TNFSCA/NEULY (2) ,XEDLY (8  ,21 , YE DLY C 8 ,2 ,2  I , 

•  JESC(8,3,2I , IWAUT(8,2I .IFPLS(B,2I. 

a  TE0PD(2) ,SE0P0(8 ,21 ,CT IKE<8.2i 

COKKON/TNFSCS/NGSFO (2) ,XGSF0(8  ,2  I , YGS FO ( 8 .2 1  . 

«  NAAFD (21 ,XAAFO (8 ,21 ,YAAFD(8,2I . 

•  NAFFO (21 ,XAFFD (8 ,21 , YAFFD(8,2I 
C3MK0N/LCCAL3/  JS 

C 

C  THESE  ARE  WORKING  VARIABLES  TARGET  ACQUISTION  NEEDS  ONLY. 

COMMON  /Taco/  visthz(ao,ii  i,ceithz(<,o.iii,rvlost(bi, 

1  IWZBAdlZI,  KTERTAinZI 

DIMENSION  PCSDT(7,A,30I .POSZOS ( 7 ,4, 30 1 .GAP (2 1 . AS lOE (2 1 
LOGICAL*!  LJCI  (4I.MJCI  (41 
.  EQUIVALENCE(LJCI (II .T JC I ) , (KJCI ( 1 1  .IJCII 

data  ASIDE/’SLUE ’. 'RED  ’/  1  JCIOOl 

ClOO)  INITIALIZE  WORKING  VARIABLES 

IJCI *0 
FNNSC'I  . 

N2«0 

Dll  t  L>I  ,2 
NI  d  +  NZ 

N2  =  H2«N0St  JS.LI 

N3«NSU(LI 

N4rN2(LI 

IF  (IUTAM.EQ.II  CO  TO  4 

C....  TARGET  ACQUISITION  MODEL  NOT  USED.  DETECTION  PROB.,  SENSOR  ERROR 
c  ano  delay  time  are  user  input 

DU  3  I0S--NI.N2 
DO  3  ISUd  .N3 
00  3  IZ*I,N4 

PSZDDS(  ISU.IZ.IDSI'PSZDdSU.IZfl) 


I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 


57 


appendix  a 


NS^NZd  I  I 

N6=NH<LI  1  JCIOOl 

IJ-=NDS(JS>n  1 
IJJ  °  NDS(JS>L1 
C 

C....  GIVEN  A  SENSING  AND  A  TARGET  DlVISIQNi  COMPUTE  DETECTION  PROS  FORI 
C  EACH  SENSOR  TYPEIIGS)  VS  EACH  SUBUNIT  TYPECISUI  IN  EACH  ZONEtIZI 


21  ILI^IDLABAIICTSD.JSI 

1FIL.E0.2I  ILI«IOLABAllCTSO*IJ,JS) 

ITI>ITD(IL1) 

CDHD-D.  1  JCIDDI 

DO  211  IV«1,N&  1  JCIODl 

TOEW^TWDIINtlTl)  I  JCIOOl 

IFlTaEW.GT.O.ICOHO«COMO*FCLWL{IW,L)»HOIVtIW,UI)/TOE«  I  JCIOOl 

211  CONTINUE  1  JCIDDI 

CALL  CVFW(NC0KD(L),XC0KDI1,L),YC0HD(1,L),C0KD,CCCDI  1  JCIDDI 

CALL  CVFHtNGSFDtLI.XGSFDII ,L),YGSFOtl,L).CCCO,COHDI  I  JCIOOl 


C....  TSX  =  LOCATION  OF  SENSOR  GROUP 
TSX=TSX+ITFAC»0VW0IH<IT1 11/2. 

II  -  NOSIJS.II  *  ICTTD 

IFtL  -EO.  21  II  ■=  ICTTD 

IL2  =  IDLABAIICTTD, JSI 

HEMP  =  ICTTD  ♦  IJJ 

IFdI.EQ.  21  IL2  °  IDLABAIITEHP.JS) 

IT2MT0I1L2I 

C....  DSX  .  HORIZONTAL  DISTANCE,  SENSORS  TO  TARGET  EDGE 


C....  PASOT  =  PROBIPARTIC  SENSOR  ACQUIRES  PARTIC  TARGET  -  GLIMPSE) 

PASOT»I.-l  l.-POGE)»*tGLPGSlIGS,LI*TACLI 
C....  TEMP2  IS  PROBABILITY  OF  NON-DETECTION  BY  ANY 

24  TEMP2*(1-PA50TI«»IEHPI  I  JCIOOl 

IFITEKP2.LT.1.E-I01TEMP2*0.  I  JCIOOl 

C....  SENSOR  OF  THIS  TYPE 

C....  TEMP2  >  PROBINO  TYPE  IGS  SENSORS  ACQUIRE  A  (PARTICULAR  TARGET) 

C....  TEHP3  »  PROBIAT  LEAST  1  TYPE  IGS  SENSOR  ACQUIRES  A  PARTIC  TARGET) 

TEMP3«1  .-TEMP2 

C....  PDSZDS  WILL  BE  USED  TO  COMPUTE  OVERALL  SENSOR  ERROR  AND  DELAY  TIME 
PDSZDSI  ISU,IZ,llHPDSZDSdSU,IZ,ll  1«TEHP3 
C....  FIND  RUNNING  VALUE  OF  PROBABILITY  OF  NON  DETECTION 
C....  PGSDT  =  PROEINO  SENSOR  OF  ANY  TYPE  ACQUIRES  A  PARTICULAR  TARGETI 
TJCI  =PGSDT  dSU,IZ,l  1 1 
IFITJCl.EO.O.IGOTO  24D1 
TJC1=TJCI»TEHP2 
IFITJCI  .LT  .1  .E-IOIT  JCI=0. 

PGSDT  dSU,  IZ.I  1  dT  JCI 
24D1  CONTINUE 

DO  27  1RBST=I,NN 

IF (RANGE  .LE.VHRBST I IRBST ,L) I  GO  TO  28 
27  CONTINUE 


1REST=NN  1  JCIOOl 

C . TAESZD  AND  TADSZD  CONTAIN  INTERMEDIATE  CALCULATIONS  FOR  SENSOR 

C  ERROR  AND  DELAY  TIME 


28  TAESZDI  ISU.IZ,  II)  TAESZD  ( I SU  ,  I Z ,  11 )  «  (TEMP  3*T  ACGSR I  IGS  , 

»  IRBST, Lll«»2 

TADSZOnSU.IZ,  d)>TAD$ZD(lSU,IZ,ll  )*TEHP3*(TADTGS(1GS.LI«C0MD) 

IF  I  IPRD.EQ.O)  GO  TO  2S 

WRITEIJNUC.32DI  DINTEG, RANGE 

WRITEI JNUC  ,33D  I  I GS , I L 1 , ISU , I Z  ,  1L2 

WRITE(JNUC,200I  PASOT, TEMPS 

25  CONTINUE 

OY  =  OY*(PZOPTHl  IZ  ,I  I  I»0V0PTHllT2)/2.) 

26  CONTINUE 
3D  CONTINUE 

IF(IPKO.EQ.O)  GO  TO  31 
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C300)  target  accuisition  by  arhy-air  sensors 

c 

C....  COMPUTE  DETECTION  PROS  FOR  EACH  SENSOR  TYPEIIAS)  ON  EACH  TYPE 
C  ARMY-AIR  CAKRIERIIACl  ON  EACH  K I SS I  ON ( IN' I  STANDOFF,  >2  PENETRA- 

C  TINGI  VS  EACH  TYPE  SUBUNITCISUl  IN  EACH  ZONEIIZ)  OF  EACH  TARGET 

C  DIVISIONIIDSI 

N7>NAACIL1 
N3=NASIL1 
NG'NOSI JS, II  I 
CEIT  =  CEITWZI ITT.IWZ) 

VIST=VISTWZI ITT, IWZl/lOOO. 

CCCO  =  SEQPD  IJS.Ll 

CALL  CVFMINAAFOILI.XAAFOII  ,L},YAAFD(l,Lt,CCCO.COHOI 
C 

C....  ITERATE  FOR  EACH  DIVISION 
DO  80  IDS>1.N6 
JDS^IDS 

IFIII.EQ.ZI  JOS°JOS*NDS(JS,LI 
IL2-IOLAeAIJDS.JSI 
IT2°  ITD( IL2I 
C 

C....  ITERATE  FOR  EACH  TYPE  OF  ARMY  AIRCRAFT 
DO  77  IAAC-I.N7 

C....  PC  •  PROSCCEILING  >  SENSOR  ALTITUDE! 

PC«0. 

IFIAHOAACUAAC.LI.LE.CEITI  PC«1. 

C....  DSX  •  HORIZONTAL  DISTANCE,  SENSORS  TO  TARGET  EDGE 
DSX>FDWLAC 1 IAAC,LI«DVWDTH( IT2I 
C 

C....  ITERATE  OVER  MODEL  TYPE.  IK>1  IS  STANDOFF  MOVING 
C  IM*2  IS  FCRKARO  AREA.  2K*3  IS  DEEP  AREA  WHICH  DOES  NOT 

C  APPLY  TO  DIVISIONS  IN  THE  ACTIVE  BATTLE  AREA. 

DO  71  IH<t,2 

C....  ASCP  •  NO.  operational  army-air  CARRIERS  ON  MISSION  IH 

ASCP«(AACS(  lAAC,  JS.LHAACDSI  I A  AC  ,  J  S,  L  ) )  *1 1-FR  AAC  1 1 1 AAC  ,L  I )  • 

•  PAACAMtlAAC,IM,Ll 

C....  ASCD  IS  NUMBER  OF  AAC  AVAILABLE  ASSUME  I  SORTIE/CYCLE 
C  ADJUST  VALUES  BY  THE  VARIABLE  RAASDT  ARMY  AIRCRAFT 

C  HiVF  AiasAnr  nccu  «TTo<Tcr> 

C....  UPDATE  RESULTS 

C....  PASDT  -  PROBIPAKTIC  SENSOR  ACQUIRES  PARTIC  TARGET  -  GLIMPSE) 

PASDT  =  I.  -  (l.-P0GEI»»(GLPAS(IA5,L)»TACL) 

C....  TEHP2  =  PROBING  TYPE  IAS  SENSOR  ACQUIRES  A  PARTICULAR  TARGET) 
bB  TEMP2=(1.-PASDTI*»TEMP1 

IFITEMP2.lt. I. E-10)TEMP2=0.  I 

C....  TEMP3  -  PROBIAT  LEAST  I  IAS  SENSOR  ACQUIRES  A  PARTICULAR  TARGET! 
TEHP3=I  .-TEMP2 

POSZOSI ISU,IZ, J0S)=P0SZ0S(ISU,IZ,J0S)«TEHP3 
TJCl'PGSDT  (IS'J.IZ.JDS) 

IFITJCI.EQ.O.IGOTO  6801 

TJCI=TJCI»TEHP2 

IFCTJCl.LT.l.E-lDITJCI'O. 

PGSOT (ISU, IZ.JDS)>T JCI 
6801  DO  71  IREST°I,NN 

IF  (RANGE.LE.VHRBSTI  IRBST,LI  I  GO  TO  72 

71  CONTINUE 

IRBST^NN  1 

72  TAESZOI ISU.IZ, JOS)  >  T AESZO I ISU,  IZ  .JOS  I  *  I TEHP3*T AC ASRI  I  AS  , 


C 

C400)  TARGET  ACQUISITION  BY  AIR  FORCE  SENSORS 
C 

C....  COMPUTE  DETECTION  PROS  FDR  EACH  SENSOR  TYPEIIAFS)  ON  RECDN  A/C  ON 
C  EACH  HISSIONCIM)  VS  EACH  SUBUNIT  TYPEIISU)  IN  EACH  ZONEIIZ)  OF 

C  EACH  TARGET  DIVISIONIIDSI 

NRI^I  I 

NR2°NRI1)  I 


JCIOOl 

JCIOOl 


JCIDOl 


JCIOOl 


JCIOOl 

JCIOOl 
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IFIL.Ea.n&QTQ  B09 
NR1=^NR11  )♦!  . 

NR2  =  NRn  )«NR{2) 

809  DO  810  1RR<NR1,MR2 

IF IJS.CE.NHSRllRRIICOTO  611 

810  CONTINUE 
1»R  =  1 

811  NRl^NLSRIlRRt 
NR2<NHSR11RR) 

CCCD=D. 

00  B12  1RR-NR1,NR2 

812  CCCD=CCCD«SECP0(1RR|LI 
CCCD'CCCD/ 1NR2-NR1«1) 

CALL  CVFKlNAFFOILl.XAFFOCl.Ll.VAFFOd.L)  .CCCD.COHDI 
N3==NAFS(LI 

C....  PC  °  PROBICEILINC  >  SENSOR  ALT  1 
PC  =  D. 

IF  lAHORACILI  .LE.CEITI  PC=1. 

00  95  10S<=1.N6 
JDSdOS 

lFIlI.Ea.2l  J0S:J0S4N0S(JS,LI 
lL2-10LAeA IJOS.JSI 
1T2«  ITOl  1L2) 

c....  osx  .  horizontal  distance,  sensors  to  target 

DSX:F0WLRAIL)»0Vh0THIIT2t 
DU  94  1H»1  ,2 

IF (RACAHIJS. IH iLl.LT ..ODDI  1  GO  TO  94 
C 

C....  AVAILABILITY  HAS  BEEN  ACCOUNTED  FOR  IN  COMPUTING  NUMBER  OF 
C  MISSION.  RACAM.  ATTRITION  FOR  PREVIOUS  CYCLE  IS  NOT  IN  RACAM 

C  SO  AN  ATTRITION  TERM  IS  NEEDED 

C....  temp  •  NO.  Of  RCCQN  A/C 

IEHP»RACAH(JS, IM,LI«<I  . -RAAF RM II M ,L I ‘F RLPMA I IM ,L 1 1 *SRR AC IL I /FNN SC 
C 

C....  PROCEED  IN  A  MANNER  EXACTLY  ANALGOUS  TO  THE  PREVIOUS  SECTION 
00  93  IAFS«I  ,N3 
OY  «  0. 

IFIIM  .EO.  21  OY  «  ORAFTILI 
C....  TEMPI  ,  NO.  OF  SENSORS  PER  TARGET  DIVISION 


C....  PASOT  =  PROBIPARTIC  SENSOR  ACQUIRES  PARTIC  TARGET  -  GLIHPSEI 
PA  SOT *1 .-I  1 .-P0&EI««1&LPAFSCIAFS,LI*TACL I 
BB  TEHP2=I1.-PAS0TI**TEMP1 

IF ITEMP2.LT.1.E-10ITEHP2=0, 

TEMP3*l  .-T EHP2 

POSZOSI ISU.IZ, J0SI=P0S20StISU,II,J05I*TEMP3 

TJCdPGSOT  IISU.IZ.JOSI 

IF  IT JCI .EQ.O.IGOTO  B801 

TJCI>TJCI*TfMP2 

ifitjci.lt. i.E-ioirjci*o. 

PGSUTIISU, IZ.JOSI-TJCI 
8801  DO  91  IRBSTd.NN 

1F1RAN0E.LE.VHRBSTI1RBST.LII  CO  TO  92 

91  CONTINUE 
IRBST=NN. 

92  TAESZDI ISU  .IZ. JDSI  ‘  T AESZD ( ISU, IZ ,JOS I « ITEMP3*TACAFR 1 1 AFS , 1R8 ST  , 
•  Lll»92 

TADSZDI ISU.IZ, JDSI-TA0SZ0C1SU,IZ,J05I*TEMP3*(TADTAFC1AFS,LI«C0MDI 


SUBROUTINE  TADPAR 
C 

C*«***»o«***»»»« 

C  TADPAR  SIMULATES  ACQUISITION  OF  TARGETS  TO  THE  REAR  OF  THE  ACTIVE 
C  BATTLE  AREA  BY  ARMY-AIR  AND  AIR  FORCE  SENSORS 

C  CALLED  BY  TARACQ 

C 


JClOOl 

JCIDDI 

JCIODI 

JClOOl 

JCIOOl 

JClDOl 

JClOOl 

JCIOOl 

JClOOl 

JCIODI 

JCIOOl 

JCIOOl 

JCIOOl 

JCIOOl 


JCIOOl 


JCIOOl 
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KtAL  NSUIU.NI!>UUr,lNtUA,INTUCiIN1U5 


CQHKON/888/ 

CDMHUN/TNFSCI/ INA8F(8,2) ,I NA8R(8 ,21 , INA8ZC2I  I  JC I DDl 

C0HH0N/INFSC2/NC3SD(2I ,XC3SD(8,2) , YC3S0i8,2» ,  I  JCIOOl 

•  FDDSAD(8,2),FS0SAD(8 ,2) ,FT0SAD(8,21,  I  JCIODl 

•  FA83CC(2) ,A88FCC(8,2I,ABSRCC(B,2I.A8CZCC(2).  I  JCIODl 

•  FSS!1CC(21  ,155HIR(8,2I,85SHIH(8.2I,5S5M1LC8,2),  1  JCIODl 

»  FSARCC (2  I jTSAMIR (3,2I,TSAMI2t2I ,SSAMIFI3,2I  I  JCIOOl 

CDHHDN/TNFSC3/NC3DD(2I , XC30D(8 ,2) , YC3DD(S.2) ,  I  JCIODl 

•  NCD^D(2I ,XCDHD(8 ,2] ,YCDMD(8.2) ,  I  JCIOOl 

•  FCLWL(1D,2)  1  JCIOOl 

CDHKDN/TNFSCA/NFDLY (21 .XEDLY (8.21 .YEDLYt8,2.2) ,  I  JCIOOl 

•  JE8C(8,3,2). IWAUT(8,2I .IFPLS(8.2I,  I  JCIOOl 

•  TEQPD(2I .SEQPD(8,2I ,CTIHE(8,2)  I  JCIOOl 

CDHHDN/TNF8C5/NC5F0  (2)  ,XCSFD(8  ,21  ,  YC,8F0(8.2I  ,  1  JCIOOl 

•  NAAFD(2) ,XAAF0(8 ,2) ,YAAFD(8 .21 ,  )  JCIOOl 

•  NAFF0(2) ,XAFF0(8,2I,YAFFD(8.2I  I  JCIOOl 

C0H8DN/L0CAL3/  JS 


C  THESE  ARE  WORK IMO  VARIABLES  TARGET  ACQUISTION  NEEDS  ONLY. 

COMMON  /TACO/  V I  SI R 2 ( 40 , 1 1  I , CE I T M2 (AO . 1 1 1 ,R VLOST ( 6) . 

1  IW2eA(II2l.  KTERTA(112I 

C  TARGET  ACQUISITION  DEEP  AREA  DETECTION  ROUTINE. 

DIMENSION  POAASSI'i  .71 ,  PO  AF  SS  (4 .7  I .  AS  lOE  (2 1 
DATA  ASI0C/'8LUE  ’.'RED  •/ 

IFdUTAM.EO.ll  GO  TO  20 

c 

ClOO)  DETECTION  PRUBA81LITY,  SENSOR  ERROR  AND  DELAY  TIME  ARE  USER  INPUT 


1  JCIOOl 


(TARGET  ACQUISITION  KOOEL  NOT  USEOI 


00  IS  L>1.2 

N1'NSU(LI 

1»NZ(L1 

00  10  ISU-1,N1 
PSRADS(ISU.LI>PS2D(ISU.I  .LI 
TAESRA( ISU.LI>TASES2(I ,LI 
TADSRA( ISU.L I-TA0IS2(I .LI 
ID  CONTINUE 
15  CONTINUE 
RETURN 
C 

C200I  INITIALIZE  WORKING  VARIABLES 

C - 

20  FNNSCd. 

INU»JNUC 

IFdPRS.NE  .OlMRITECINOiIOOlICYCLE.  JS 
00  80  L<1  .2 


I  JCIOOl 
I  JCIOOl 


c 

c 

1F(RACAM(JS.3.LI .LT. .00011  CO  TO  65 
C  RACP  NO.  RECDN  A/C  ON  DEEP  SEARCH 

RACP‘RACAM  ( JS.3.LI«d  .-RAAFRM(3.LI  •FRLPMAC3,LI  IPSRRAC  ELI/FNNSC 
OD  60  IAFS>1,N4 

TEMPl.RACP»PRAFSHd  AFS  ,3.LI/MDIV0 
IFITEMPl.LE.. 00011  GO  TO  60 
DO.  50  I  SU<=  I  .N3 

TEMP.SHAIUSdAFS,ISU.LI»VELRACELI  •TAFSSDdAFS.LI/OAREA 
PASOT*I .-EXP (-TEMPI 
TEHP2  =  d  .-PAS0T1»» TEMPI 
PDAFSSI lAFS. ISUI =1 .-TEMP2 
PSRADSI  ISU,KI  =  PSRADSdSU.KI»TEMP2 
50  CONTINUE 
60  CONTINUE 
65  CONTINUE 
C 

c 

c  summarize  and  normalize  results  in  same  fashion  as  in  taraca 
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CCC0=5E0P0tJ5,LI  I 

CALL  CVFWCNAAFDCDiXAAFQd.D.YAAFOdtD.CCCD.CaHQAA)  I 

NRl-1  I 

NR2°N'R(1)  I 

IFCL.EQ.lICQTa  809  ) 

NRl=NRtlI«l  1 

NR2=NRtl  I«NRt2)  I 

809  DO  BIO  1RR-NR1,NR2  1 

IFCJS.GF.NHSRC IRR))GOTa  811  I 

810  CONTINUE  I 

IRRd  I 

811  NRl ^NLSRCIRR )  I 

NR?-=NHSR  (I  RR)  I 

CCC0=0.  I 

DO  812  IRR-=NRltNR2  ) 

812  CCCD-CCCD«SEaPO( IRR.L)  I 

CCC0=CCCD/(NR2-NR1»1 J  1 

CALL  CVFW(NAFFOIL),XAFFOIl.L).YAFFOCltLI.CCCO.COHOAFI  1 


DO  70  I5U=ltN3 
T5ENSR=D. 

DO  66  IAS-1, N2 

TSENSRdSENSR^POAASSOAS.lSU) 

66  CONTINUE 

DU  67  lAFSM.NA 

TSENSk=lSENSR«POAFSSClAFS, ISUI 

67  CONTINUE 

OU  68  IAS:),N2 

IFITSEMSR.EO.O.l  GO  TO  68 

PDAASS(IAS.tSU)‘POAASS(lAS.lSUI/TSFNS(t 

TAESRA(ISU,K)<TAESRA(ISU,K)*{PDAASS(IA5.1SU)*SEAA0AtlAS,in**2. 
TADSRAI tSU,K)<TAOSRA(ISU,K)«POAASStlAS,lSU)*(TAOTASt I AS ,L ) «COHDAA ) 

68  CONTINUE 

DO  69  tAFS>l,N9 

IFITSENSR.EO.O.)  CO  TO  69 

PDAFSSdAf  S,ISU)=POAfSSnAFS,ISUI/TSCNSR 

TAESRA(ISU,K)>TAESRA(ISU,K)4|PDAFSSIIAFS,)SU>*SEAFDA(IAFS,L>I**2. 
TAOSRAI  ISU,X.)«  TAOSRAUSU  ,K)«POAF  SS  OAFS,  ISU)  PIT  ADT  AFC  )AF$,LJ« 

•  CUMOAF)  1 

69  CONTINUE 


JClOOl 

JClOOl 

JClOOl 

JClOOl 

JClOOl 

JClOOl 

JClOOl 

JClOOl 

JClOOl 

JClOOl 

JClOOl 

JClOOl 

JClOOl 

JClOOl 

JClOOl 

JClOOl 

JClOOl 

JClOOl 


JClOOl 


A-5.  INPUT  AND  MAIN  CONTROL 


This  section  completely  lists  subroutine  TWAIN,  which  controls  the 
overall  flow  of  the  TACWAR  combat  simulation,  and  subroutine  TNFINP, 
which  controls  the  C^/D  input  data  to  TACWAR. 


SUBROUTINE  THA  IN 
C 

C  TMAIN  SETS  UP  A  CYCLE  COUNTER  WHICH  CONTROLS  INTERMITTANT  HOOEL 

C  FUNCTIONS.  TMAIN  ACTIVATES  A  I R, NUCLEAR ,CHEM I  CAL .TARGET  ACOUISITON 

C  GROUND, SUPPL IE5  AND  THEATER  CONTROL  MODELS. 

C  called  BY  NMAIN.  CALLS  HSREAD  AND  APDRTN. 

C 

DIMENSION  ARSTIS) 

DATA  ARST/AH$TRE,4HNTtT,AHRENT,4H$TRE,4HNT  / 

COMMON  /RSTRT/  NRSTRTC3) 

REAL  NSUTD,NTSU0T,)NTDA,1NT0E,INT0S 

Oft»ftftftefte4dOftOft4OftOOOO4OO0OO»OOOOOO«OOOeaOOOOOOOOOO6*6O6OOOft66OOO**ftOOOftOOft»06O» 

CDHKDN/BBB/ 

•  •eft«»a«4a0«««0o»«o**o«oso**s«o*  o* •»»»••••»•• a»»o a •»»*s»»o««oooo»«oaa»0o0«ooo»oo 
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C0HH0N/TNFSC2/NC3S0(2) ,XC3S0 18 ,2 1 , YC3 jO( 8 ,21 . 

•  F00S»D(B,2),FSDSA0l8,2),FTDSA0i8.2) , 

•  FABDCC(2I ,ABSFCC(e ,2 ) , ABSRCCi 8 .21 . ABCZCC  i2  ) , 

•  FSSHCC(2)  ,TSSH)R(8,2),5SSHtHI8.2).SSSnaiB,2>  , 

•  FSAHCC(2)  ,TSAHIIt|3,2l,'tSAHtZI2>.SSAniFi3,2> 

COHH0N/TNFSC3/NC30D(2),XC3OO(B,2).YC3D0(B.2> . 

•  NCO!10(2),XCOHOIB,2).YCOHOtB.2l, 

•  FCLULI10,2I 


liEAL«8  NAHES(16),aNAHE 

INTEGER  IPR INTI  16), ICHNUCI 2. 2) .1221,1222,1223 


100 

101 


OATA  NAHES/'QAPORT  '.'QPSAIR 

•  'QNUC  •,’QTAIIAQ 

•  'OSUPLY  '.’OTIHET 

•  'QNUCCO  V 

OATA  1PR1NT/16*7/,  ICHNUC/4*7/ 
FORHATIlOX, 20131 
F0RHATIA8,2X, 3111,4X11 


*,  'CPSUHY 

•,'OGND 

•,'QURRST 


•.•QAIRNO 
», •OAIRCO 
•.•QTMFIN 


10)  INITIALIZATION 


•,*QCHEM 

»,’OTC 

•,*OOSDE6 


lRST-17 

HOT'JCON 

REA0I5,100.EN0°2SINCYCLE.NNSC 

REAOI5.1O0,EN0>2S)IPR00 

REAO 1 5. 100  .END >251 1  I PRSO 1 1 ) . I > 1 ,20  I 

REAOI5,IOO,END>2S))OHU 

21  RE  AO  1 5, 1 01  ,EN0>25)9NAHE,1ZZ1,I222,IZZ3 
00  22  )>l,tb 

)FI0NAHE.NE.NAHESI)))GOT0  22 
1PR)NT( I)«I22I 

IF  IQNAHE.NE.NAHESIS)  .ANO.ONAHE.NE.NAHESC«))GOTO  21 

ICKNUCI1,I-4)>IZZ2 

)CHNUCI2,)-4I>  1223 

GOTO  21 

22  CONTINUE 
C 

JC0N>IPRINTI14) 

CALL  TNFINP 


C 

25  CONTINUE 


C 


)  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 

1  JCIOOl 
1  JCIOOl 
'.I  JCIOOl 
’,I  JCIOOl 
•,l  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 


1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 


c - 

C  ALLOCATE  NOTIONAL  AIRBASE  TO  REAL  AIRBASES  UNLESS  THIS  IS  A 
C  RESTART  RUN. 

C - 

c 

IFINRSTRTIll.GT.ll  GO  TO  10 
JCON'IPRINTII) 

CALL  APORTNIl) 

10  CONTINUE 
C 

c - 

C  PRINT  tables  FOR  CYCLE  PRECEEOING  START  OF  GAHE. 


C 

ICYCLE>0 

IFINRSTRTIll.GT.ll  ICYCLE=NRSTRTI3 )•2-l 
JSUH>IPRINT|2) 

CALL  PSAIR 
JSUH»1PRINTI3I 
CALL  PSUHHY 
C 

c - - 

C  SET  GAHE  CYCLE  COUNTER.  INITIALIZE  MAJOR  SUPPLY  CYCLE 
C  COUNTER  TO  NCSH  •  NO.  COMBAT  CYCLES  IN  A  MAJOR  SUPPLY  CYCLE 

C - -■ 

c 


1  JCIOOl 


I  JCIOOl 
1  JCIOOl 
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11  IIFLAC;  =  D 

IFlNRSTRTtn.GT.lI  GD  TO  900 
GO  lU  901 

900  IIFLAG  *  1 

ICYCLE  =  NRSTRT13)  •  2 
GO  TO  902 

901  ICYCLE  =  1 

902  CONTINUE 
1CSH=NCSH 

IFINCSH.LE  .01  GO  TO  909 

903  IF { ICSH.GE .ICYCLE)  GO  TO  904 
ICSM  =  ICSN  •»  NCSN 

GO  TO  903 
909  CONTINUE 
C 

c - 

C  201  EXECUTE  AIR  MODEL 

C  STATEMENT  1000  IS  THE  STARTING  POINT  FDR  CALCULATIONS  EACH  CYCLE. 

C  BEGIN  BY  SETTING  PRINT  FLAG  IPRD-1  (PRINT)  IF  CYCLE  IN  ARRAY  IPRDD 

C - 

c 

IF  INKSrRT(2).EO.I.ANO.IIFLAC.ED.l)  GO  TO  IDIS 
IDOO  00  lUIO  II>1,6 

IF { ILYCLE.EO.I PROOI I  I ) I  GO  TO  IDIS 
IF { ICYCLE.LT.I PROO(  I  I  I )  GO  TO  1020 
1010  CONTINUE 
CO  TO  1020 
1015  IPRO'I 

GO  TO  1025 
1020  |PR0:0 
1025  CONTINUE 

IF (  I0MU.C0.7)  CO  TO  1021 

JC0N<IPRINT(9)  1  JCIOOl 

CALL  AIRMDD 


C 

c - - - 

C  30)  EXECUTE  NUCLEAR  AND  CHEMICAL  MODELS 

C - 

c 

c - 

C  ARE  NUCLEAR  AND  CHEMICAL  WEAPONS  CONSIDERED  7 

c - 

c 

IFIICMU.EQ.SI  GO  TO  700 

C - 

C  ALLOCATE  NOTIONAL  AIRBASES  TO  REAL  AIRBASES 

C - 

c 

JCON^IPRINTCII  1  JCIDDI 

CALL  APORTNCl) 

1021  CONTINUE 
C 

c - - 

C  FOR  NNSC  SUBCYLES 

C  SET  FLAG  ANO  CALL  NUC  AND  CHEN  FOR  DETERMINING  ESCALATION 

C  STATE  AND  CHEMICAL  EMPLOYMENT  LEVEL 

C - 

c 

NITC-^S 

KNUCH=D 

C 

c - 

C  SET  IPRS  FOR  SUMMARY  OUTPUT 

C - 

c 

IPRS'D 

DO  1  11>1,3D 

IFdCYCLE.EQ.lPRSDKlII  CO  TO  2 
IF (ICYCLE .LT .IPRSDI 1 1) I  CO  TO  3 
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1  CaNTINUt 
CD  TD  3 

2  IPRS*1 

3  IFCICYCLE.EQ.l.QR.lCYCLE.EQ.NCYCLEl  IPRS*1 
IF  (IIFLAG.EO.il  IPRS  «  1 

C 

C - 

C  BEGIN  CALCULATIONS  FDR  EACH  SUBCYCLE  INCYL 

C - 

C 

DO  600  INCYL  =1  ,NNSC 
C 

c - - - 

C  IF  NO  CHEH  OR  NUC  WEAPONS  USED  AFTER  FIRST  SUBCYC LE  ,  LE A VE  OO-LOOP. 

C - 

C 

CJCI  IFdNCYL.CI.l.ANO.KNUCH.EQ.OI  CO  TO  700 
KFLAC*! 

RISS«0 

C 

JC0N*IPRINTI161 
CALL  NUCCCO 
C 

JCON^IPRINTdS) 

CALL  OSOEG 


C 

c - 

C  IF  CHEH  WEAPONS  ARE  TO  BE  PLAYED  CHEH  OETERHINES  CHEHKAL 

C  EHPLOYHENT  LEVEL  ANO  INITIALIZES  CHEHICAL  MODEL 

C - 

C 

lF(I0HU.EQ.3.0R.iaHU.E0.St  CO  TO  12 
JCKENeIPRINT(5) 

CALL  CHEH 
KFLAC*1 
MSS  =  0 


IF  NUC  WEAPONS  ARE  TO  BE  PLAYED  NUC  DETERMINES  ESCALATION 
STATE  AND  INITIALIZES  NUCLEAR  MODEL 


12  IF  (IOHU.EQ.A.DR.IOHU.EQ.SI  CO  TO  13 
JNUC- IPRINTC6I 

CALL  NUC 

13  KFLAC  =  0 


BEGIN  NUC  and  CHEH  CALCULATIONS  FOR  EACH  SECTOR  KISS  >  15. 


DO  500  1S<1,NS 
KISSdS 
C 

C - 

C  DETERMINE  IF  THIS  SECTOR  HAS  A  POSITIVE  ESCALATION  STATE 

C - - - 

C 

□  0  310  L<1  ,2 
DO  31D  1TC=1,NITC 
IFdESCClS.lTC.LI.CT.Ol  CO  TO  320 
310  CONTINUE 
C 

C - 

C  NO  USE  OF  NUCLEAR  WEAPONS  IN  THIS  SECTOR 

C - 

C 

KNUC'O 
CO  TO  350 


JCIOOl 


JCIOOI 

JCIOOl 

JCIOOL 

JCIOOl 

JCIOOl 

JCIOOl 


1  JCIOOl 


I  JCIOOl 
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NUCLtAR  WEAPON  ARE  TO  BE  USED 

KNUCH  tNQlCATES  NUCLEAR  OR  CHEMICAL  WEAPON  USE 


320  KNUCO 

KHUCH»KNUCH«1 


DETERMINE  IF  THIS  SECTOR  HAS  A  POSITIVE  EMPLOYMENT  LEVEL 


350  CONTINUE 

00  360  L>1,2. 

00  360  ITC«1.NITC 
IFIIEMLIIS.ITC.LI.ST.OI  CO  TO  370 
360  CONTINUE 


NO  USE  OF  CHEMICAL  WEAPONS  IN  THIS  SECTOR 


KCHEM«0 
CO  TO  <>00 


CHEMICAL  WEAPONS  ARE  TO  BE  USED 


370  KCHEH«I 

KNUCH  =  KNUCH«I 


IF  THE  ESCALATION  STATE  OR  THE  EMPLOYMENT  LEVEL  MAS  POSITIVE 
CONDUCT  TARGET  ACQUISITION  IF  NOT  GO  TO  NEXT  SECTOR 


«00  CONTINUE 

IFIINCYL.GT.ll  CO  TO  505 

KIPRD»IPRO  C  JCIOOl 

ICI  IPR0»0 


TARACQ  PERFORMS  TARGET  ACQUISITION  CALCULATIONS 


JNUC-IPRINTI7I  1  JCIOOl 

CALL  TARACQ 
’  IPRO*KIPRO 


DETERMINE  ORDER  OF  USE  OF  WEAPONS 


505  CONTINUE 

IFIKNUC.EQ.O.  ANO.  KCHEM.EQ.OI  CO  TO  500 

IF  I  IOKU.EQ.1.0R.IOMU.E0.3.OR.I0MU.CE.6)  CO  TO  510 

GO  TO  560 


NUCLEAR  WEAPONS  ARE  USED  FIRST  IF  ALLOWED 


510  CONTINUE 

IFIKNUC.EQ.O)  GO  TO  520 
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NJC  PERFCIRKS  NUCLEftR  OAHA&E  CALCULATIONS  IN  SECTOR  KISS 


JNUCcICHNUCIl.Z)  I  JCIOOl 

CALL  NUC 


ARE  CHEMICAL  WEAPONS  USED  IN  ADDITION  TO  NUCLEAR  WEAPONS  ? 


A20  CONTINUE 

1F(IQHU.E0.3)  CO  TO  500 
IF  (KCHEN.EO.OI  CO  TO  SOO 


CHEH  PERFORMS  CHEMICAL  OAHACE  CALCULATIONS  IN  SECTOR  KISS 


JCHEM-ICHNUC(1,1)  I  JCIOOl 

CALL  CHEH 
CO  TO  SOO 


CHEMICAL  WEAPONS  ARE  USED  FIRST  IF  ALLOWED 


A50  CONTINUE 

IFIKCHEH.EQ.OI  CD  TO  A70 


ADDITIONAL  CHEMICAL  OAHACE  CALCULATIONS  BY  CHEM 


JCHEHMCHNUCd.ll  1  JCIOOl 

CALL  CHEH 


ARE  NUCLEAR  WEAPONS  USED  IN  ADDITION  TO  CHEMICAL  WEAPONS  7 


A70  CONTINUE 

IF(I0HU.E9.<rl  CQ  TO  SOO 
IFCKNUC.EO.Ol  CO  TO  SOO 


ADDITIONAL  NUCLEAR  OAHACE  CALCULATIONS  BY  NUC 


JNUC<ICHNUCII.2I  I  JCIOOl 

CALL  NUC 


END  OF  OO-LOOP  ON  SECTOR  IS  •  KISS 


500  CONTINUE 


END  OF  OO-LOOP  ON  SUECYCLE  INCYL 


I  JCIOOl 

600  CONTINUE 


NUCLEAR  AND  CHEMICAL  DAMAGE  CALCS.  FINISHED  FOR  THIS  CYCLE 
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c 

IF (I0HU.E0.7I  CO  T3  1022 
C 

c - 

C  ALLOCATE  REAL  AIRBASES  TO  NOTIONAL  AIRBASES 

C - 

c 

JCDN^IPRINTU)  I  JCIOOl 

CALL  AP0RTN(2) 

1022  CONTINUE 
700  CONTINUE 


AOI  EXECUTE  REMAINING  PARTS  OF  TACNAR  HOOEL  FDR  THIS  CYCLE 


GROUND  PERFORMS  GROUND  COMBAT  CALCULATIONS 


IFdOHU.GE.fal  GO  TO  1041 

JCON^IPRINTIB)  I  JCIOOl 

CALL  GROUND 


AIRGRO  PERFORMS  AIR-GROUND  CALCULATIONS 


JC0N=1PR1NTI9)  1  JCIOOl 

CALL  AIRCRD 
1041  CONTINUE 

IF  (IIFLAG.EO.II  CO  TO  1026 

IF(ICYCLE.EQ.l.OR.ICYCLE.EQ.NCYCLE)  CO  TO  1026 
IFCIPRO.EQ.l IGO  TO  1026 
DO  1027  11  =1,30 

IFdLYCLE.Efi.IPRSOdl)  J  CO  TO  1026 
IFdCYCLE-LT.IPRSOdin  CO  TO  1028 
1027  CONTINUE 

CO  TO  1028 
1026  CONTINUE 

IFn0MU.E0.7I  CO  TO  1028 


PSAIR  PRINTS  AIR-GROUNO  SUMMARY,  AS  REOUIREO 


JSUM=IPRINT(2I  I  JCIOOl 

CALL  PSAIR 
1028  CONTINUE 


.IF  ICYCLE  NOT  LAST  CYCLE  IN  GAME,  SET  FLAGS  FOR  CALLS  TO  NUC  AND 
CHEH  TO  CALCULATE  NUCLEAR  ESCALATION  STATE  ANO  CHEH  EHPLYHT  LEVEL 


KFLAG=2 
K1 SS=0 
INCYL'O 


NUC  DETERMINES  NUCLEAR  ESCALATION  STATE  IF  NUC  WEAPONS  ARE  PLAYED 


IF(I0MU.E0.3.0R.I0NU.E0.5I  GO  TO  14 

JCHEH=ICHNUC(2,1I  1  JCIOOl 

CALL  CHEH 


CHEH  OETERHINES  CHEMICAL  EMPLOYMENT  LEVEL  IF  CHEH  WEAPONS  PLAYED. 
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14  1F(IOKU.EQ.4.0R.IOHU.EO.S)  GO  TO  IS 
JNUC= ICHNUC«2, 2) 

CALL  NUC 

15  KFLAC  =  0 

IFHOMU.CE  .6)  GO  TO  1090 
C 

c - - 

C  TC  PERFORMS  THEATER  CONTROL  AND  BOOKKEEPING  CALCULATIONS 

C - - - - 

c 

JCON  =  IPR1NT110) 

CALL  TC 

IF  1 ICYCLE.NE .«CSM(  GO  TO  1030 
C 

C - - 

C  FDR  MAJOR  RESUPPLY  CYCLE,  SUBROUTINE  SUPPLY  MAKES  SUPPLY 

C  MODEL  CALCULATIONS 

C - - 

C 

JC0N  =  «PRINT(I1  ) 

CALL  SUPPLY 

c 

c - - 

C  INCREMENT  NEXT  MAJOR  RESUPPLY  CYCLE 

C - - - 

c 

ICSM»ICSM«NCSM 

1030  IF  (ICYCLE  .NE.  .2<>IG01  GO  TO  16 
C 

C--' - - - - 

C  TIMET  READS  INPUTS  IF  TIHE-T  VABIABLES  ARE  TO  BE  INPUT  THIS  CYCLE 

C - - 

C 

JC0N»IPR1NT<12I 
CALL  TIMET 

16  <F<<<FlAG.EQ.tl  GO  TO  1040 
IFKCYCLE.EQ.l. OR. ICYCLE. EQ.NCYCLEI  GO  TO  1040 
IF  HPRD.EO.ll  GO  TO  1040 

00  1035  II  =>1  ,30 

(FdCYCLE.EO.lPRSOIIlll  GO  TO  1040 
IFIICYCLE.LT.IPRSOdlll  GO  TO  1090 
1035  CONTINUE 
GO  TO  1090 
1040  CONTINUE 
C 

c - - 

C  PSUMMY  PRINTS  SUMMARY  TABLES  FOR  GROUND  ANO  THEATER 

c  control  variables 

C - - - - 

c 

JSUMMPRINTISI 
CALL  PSUMMY 
IIFLAC  »  0 
C 

C - - 

C  CHECK  TD  determine  IF  THIS  TACHAR  RUN  HILL  CREATE 

C  RESTART  FILE.  If  SO,  COPY  BLANK  COMMON  FOR  EACH 

C  COMBAT  DAY  TO  THE  OUTPUT  RESTART  FILE-  IlRST  -  171 

C - - 

C 

1090  IF  INRSTRTdl  .EQ.l.OR.NRSTRTdl  .EQ.3I  CO  TO  1050 
CO  TO  1055 

1050  IF  (MODdCYCLE,21.EQ.OI  GO  TO  1055 
NDAY  •  HCYCLE  ♦11/2 

WRITE  IlRST, 10511  ARST,  NDAY 

1051  F0RHATdX,A18,l41 

JCON> IPRINTI 131  ] 

CALL  NRRSTIIRSTI 
1055  CONTINUE 
C 


I  JCIOOl 


JClOOl 


JCIOOl 


JCIOOl 


JCIOOl 


JCIOOl 
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c - 

C  END  CF  CALCULATIONS  FOR  THIS  CYCLE.  STOP  IF  LAST  (NCYCLE)  CYCLE; 

C  OTHERWISE,  INCREMENT  ICYCLE  ANO  BEGIN  CALCULATIONS  FOR  NEW  CYCLE. 

C - 

C 

IF  ( ICYCLE.CE. NCYCLE)  GO  TO  1099 

ICYCLE*ICYCLEtl 

GO  TO  1000 

c 

c 

1099  1F(NRSTRT(1).EQ.1.0R.NRSTRT(1).£Q.3)  REWINO  IRST 
RETURN 
ENO 


SUBROUTINE  TNFINP 

TNFINP  READS  IN  DATA  ASSOCIATED  WITH  CCC  DEGRADATION  OF  NUCLEAR 
RESOURCES 


1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 


REAL  NSUTO.NTSUOT.INTOA.INTOE.INTDS 
COKMON/BBB/ 


100 

101 

102 

103 

109 

105 


«000d««0««0«d000«d«00«d00»«««0«««««0«*»««0»00*00»000»0000«dd00*0000000000* 


C0HK0N/TNFSC1/1NASF(8.2) . I NABR (8 .2 ) , 1  NAB Z(2 I 

I 

JCIOOl 

CCMM0N/TNFSC2/NC3SD  (21  ,XC3S0(B  ,2  )  .  YC  3S0  (  B  ,  2 )  , 

1 

JCIOOl 

»  FOOSAO(B ,2),FS0SA0(B ,2) ,FTDSAD(8,2) , 

JCIOOl 

•  FA80CC (2) .ABSFCC(8,2),ABSRCC(B,2) ,ABCZCC(21 , 

1 

JCIOOl 

•  FSSMCC(2I ,TSSH1R(8,2),SSSHIH(6,2) ,SSSH1L(8 ,2), 

1 

JCIOOl 

FSAMCC (21 ,TSAHIRC3,2),TSAM11(2I ,SSAK1F(3,2) 

1 

JCIOOl 

C0MMON/TNFSC3/NC30D(2l , XC3C0 (8 ,2 1 , YC3DD (8 ,2 1 , 

I 

JCIOOl 

NCOMO (21 .XCOHO (8 ,2 ) , YCDMO ( 8 ,2  I » 

I 

JCIOOl 

FCLNL(10,21 

1 

JCIOOl 

C0KM0N/TNFSC9/HE0LY(2I ,XE0LY(8 ,2) , YE0LY(8 ,2 ,2) , 

1 

JCIOOl 

JESC(8,3,2),IWAUT(B.2).1FPLS(8 ,2). 

) 

JCIOOl 

TEOPD (2) ,SE0P0(8.2),CT1HE(8.2) 

1 

JCIOOl 

CONMON/TNFSC5/NGSFO(2I  ,XGSF0(8  ,2 ) ,  YGSF 0 (8  ,2 1  , 

1 

JCIOOl 

NAAF0(2),XAAF0(8,2),YAAF0(B,2) • 

1 

JCIOOl 

NAFFD(2) ,XAFF0(8,2),YAFrD(8,2) 

I 

JCIOOl 

REAL*e  APARHOI) 

I 

JCIOOl 

DATA  APARH/'NC300  ’.•XC300  •,’YC300  'NCOMO 

','XCOMO 

'.I 

JCIOOl 

•YCUMO  'I'FCLWL  ','NC3S0  •,’XC3S0 

’,’YC3S0 

M 

JCIOOl 

'FAGOCC  '.'FSSHCC  '»’FSAHCC  ','TSSHIF 

','SSSHIN 

'.I 

JCIOOl 

■SSSMIL  ','TSAMIR  '.’TSAHIE  ','SSAHIF 

•,'NEOLY 

'tl 

JCIOOl 

'XEOLY  '.'YEOLY  '.'NGSFO  'XGSFD 

','YCSFO 

JCIOOl 

•NAAFO  '.'XAAFO  '.'YAAFO  ’,'NAFFD 

','XAFFD 

'.I 

JCIOOl 

'YAFFO  '/ 

I 

JCIOOl 

DIMENSION  AS10E(2) 

1 

JCIOOl 

DATA  ASICE/'BLUE >, 'RED  '/ 

1 

JCIOOl 

FaRMAT(10X,20I 31 

1 

JCIOOl 

FDRHAT(lX,Ab,10(3X, 19)1 

I 

JCIOOl 

F0RMAT(10X,I0F6.0) 

1 

JCIOOl 

FORMAT(lX,Ab,lO(3X.FB.3n 

I 

JCIOOl 

FORMATCO  INITIAL  TNFS  VALUES  FOR  ',A9,'  SIDE*) 

I 

JCIOOl 

FDRMATIIX, 'NORMALUEO  VALUES  FOR  FCLWL'I 

1 

JCIOOl 

MOT=JCON 

I 

JCIOOl 

00  30  L=l,2 

1 

JCIOOl 

REA0(5, 100 1 

1 

JCIOOl 

WRITECM0T,1D9IASI0E(LI 

I 

JCIOOl 

READ(5,100,ENO«25,ERR=28INC300(L) 

1 

JCIOOl 

WR1TE(M0T,101)APARM(H,NC300(L) 

1 

JCIOOl 

NN=I1C3D0(L1 

1 

JCIOOl 

RFA0(5,102,FN0°25,ERR<2B )(XC300(I.L),I«1.NN) 

1 

JCIOOl 

WRITE  (M0T,103)APARM(2) ,(XC300(I,L) ,)>1.NN) 

I 

JCIOOl 

REA0(5,102,EN0-25,ERK>=28  I  ( YC300(  I  .L )  1 1  >1  .NN ) 

I 

JCIOOl 

WR1TE(H0T,  1031APARM(3)  ,(YC300(1.L)  .1<=1.NN) 

1 

JCIOOl 

READ(5,1D0,END*25,ERR=Z8 INCOMOIL) 

1 

JCIOOl 

WR  ITE  EMOT, 1011 APARMIAI .NCOMO (L) 

1 

JCIOOl 

NN  =  NCOHD(L  ) 

1 

JCIOOl 
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REAOtS,102  ,(N0‘2S,ERR°2B((XC0HD(  t,L)  .I«ltNN(  t  JCIOOl 

WRITE  (K3T,  103)Af'ARMtS)  ,  (XCOHCK  I.L)  ,I«1,NN)  I  JCIOOl 

REAO(S,I02,EN0^2S,EKR-2BHYC0H0(t,L(,I<l.NM)  I  JCIOOl 

WRITE  (HOT,  1031  APAR'Itb)  ,  (YCOHOI I  tL)  ,I«1,NN1  I  JCIOOl 

NN=:NW(L)  t  JCIOOl 


REAOI5,102,EN0«25,ERR*2B({FCLWLIl,lJ,I-l,NN) 

■  WRITE (HOT, 1031 APARHI 71 , ( FCLWL ( 1 ,L 1 ,1 *1 ,NN ) 
REA0(5,100,EN0'25,ERR=28 INC  350 (LI 
WRITE(HQT,10I)APARH(8),NC350(L) 

NN=NC3S0(L  I 

REAO(S,102 ,EN0=2S,ERR=2B)(XC350( I ,LI ,I«1,NN) 

WRITE (H0T,1031 APARH(91 ,(XC3S0( I,LI ,1»1,NN) 

REAO(S, 102,ENO=2S,ERR-2B)(YC350(1,LI .I>1,NN1 
WRITE (HOT, 103) APARM( 10( , (YC350 ( I ,L ( , 1 • 1 ,NN) 
REAO(S,100,ENO<2S,ERR=28)NEOLY(LI 
WRITE(H0T, I011APARH(20I ,NE0LY(L1 
NN=NEOLY(L  I 

REA0(S,102,EN0<2S,ERR=2BI(XE0LY(I,LI  ,I«1,NN) 

WRITE (HOT, 103) APARH (21 ),(XE0LY(),L),1'1,NN) 

00  10  J<=1,2 

RE  AO (S, 102 ,EN0=2S,ERR^2B) (YEOLY( l.J.L 1.1^1, NKI 
WRITE (HQT,103)APARH(22) , ( YEOLY ( I , J ,L 1 , I «1 .NN I 
10  CONTINUE 

REAO(S,100  ,EN0’2S,ERR°2B)NCSF0(L  I 
WRITE (HOT, 1011 APARM (23  I ,NCSFO(L) 

NN=NCSFO(L I 

REA0{5,102 ,ENO=25,ERR=28)(XC5FO( I,L1 ,I-1,NN1 
WRITEIHQT,  103)APARH(2<i)  ,  (XC5F0(I.LI,U1,NNI 
REA0{S,102  ,ENO°2  5,ERR°2Bl(YC5FO( I ,L) .Icl.NN) 
WRITEIHOT,103IAPARH{251 , ( YCSFO ( I ,U 1 , I =1 ,NN I 
REA0(5,100,ENO«25,ERR»2aiN0SF0(Ll 
WRITE (HOT, 101 lAPARH (26) ,NAAFO(LI 
NN«NAAFO(L I 

REA0{5,102,EN0»25,ERR=28I{XAAF0(I ,L1,1*1,NN) 

WRITE (HOT,  1031 APARM(27 1 , ( XAAFO { 1 ,L I , 1 *1 ,NN) 
REA0(S,102,EN0*25,ERR‘28)(YAAF0( I ,L) ,I*1,NN) 

WR  IT E  (HOT, 103  I APARM (28  I , ( YAA FO ( I ,1 1 , I °1 ,NN I 

REA0(S,100,ENU«2S,ERR*2B)NAM0(LI 

WRITE (HOT , 101) APARM (29  I ,NAFrO(L) 

NN-=NAFF0(L  I 

REA0(S,102  ,EN0-2S,ERR-28 1(XAFF0( I,L) ,1>1,NN) 

WRITE  (HOT,  103)  APARMOO)  ,  (XAFFOd  ,L  I  ,1<1,NN) 

RE A0{5,102 ,ENO=25,ERR=28 ){ YAFFO( I ,L) ,I-I,NN1 
WR ITE (HUT, 103) APARM (31  I , ( YAF FO ( ( ,L 1 , I >1 ,NN ) 
REAO(5,102 ,EN0=25,ERR=28 )FAB0CC(L) 

WRITE  (HOT, 103) APARM (11 ) ,FAeOCC (L) 

REA0{5,102 ,EN0=25,ERK»28)FSSHCC(L) 

WRITE (HUT, 103) APARM (12) ,F5SHCC(L I 
REAO(5,102  ,EN0  =  25,ERR=28)FSAHCC(L) 

WRITE (HOT,  103 ) APARM ( 13 )  ,FSAHCC(L) 

00  90  15  =  )  ,NS 

IF  (55H5R5(  I5,L  ).CT.0.)T55HIR(I5,L)  =SSHSRStIS,L) 
IF(S5M5F5(  1,IS,L1.CT.0.)5SSHIH(I5,L)=SSMSFS(I,IS,L) 
IF  (55H5F5(2,  I5,L  l.CiT  .0.)  555HIL  ( I  5  ,  L )  'S5HSFS  (2 , 15  ,L  ) 
90  CONTINUE 

WRITE (HOT, 103) APARM (19) ,(T55HIR( 15, L I ,15-1, N5) 

WR ITE (HUT ,103) APARM (15) , (S55H(M( I5,L) ,IS-1,N5( 

HR(TE  (hut,  1 03)  APARM  (lb  (  ,  (5  55H I  L  ( I  5  ,L  >  ,  I  5«1  ,N  5  ) 
NRI=NR(L( 

00  92  IR  O  ,NRT 

IF(ALR5R(I  ,)R,L(.CT  .0.(T5AHIR(IR,L)>ALR5RCI,IR,l) 

IF  (BHK5(1.  IR.L  ).CT.U.)55AHIF  (1R,L}'BHRS(1,IR,L) 

92  CONIINUE 

IF(ALR5Z(I  ,L  ).CT.0.)T5AMIZ(L)  =  ALRSZ(1,L( 

WRITE  (HOT,  103)  APARM  (17)  ,  (T  5AH )  R(  IR  ,L  )  ,  IR  >^1  ,NRT ) 


1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl' 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl. 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
(  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 


WR1TE(M0T,103(APARM{1B),T5AHIZ(L(  I  JCIOOl 

WRITE(H0T,1031APARM(19) ,(55AMIF(IR,L1,1R«1,NR7J  1  JCIOOl 

NN=NW(L)  1  JCIOOl 

5UHH=0.  j  JCIOOl 

00  32  1*1, NN  I  JCIOOl 

32  5UHH*5UHH»FCLHL( I,L1  j  JCIOOl 

IF(5UMH.LE .O.ICOTO  35  I  JCIOOl 
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DO  34  I>1,NN 

I  JCIDDl 

34 

FCLNL  II  ,L)  »FCLWL  II  ,L1/SUMH 

I  JCIDDl 

35 

WRITE (MDT, 1D5) 

1  JCIOOl 

WRIT£(KDT,ID3IAPARK(7I,(FCL«LtI,Ll,l»l,NNI 

I  JCIODl 

30 

CONTINUE 

I  JCIOOl 

25 

CONTINUE 

I  JCIOOl 

RETURN 

I  JCIODl 

2S 

WRIT£I6,999I 

1  JCIOOl 

999 

FORMAT! ERROR  OCCURRED  IN  SUBROUTINE  TNFIMP  ON  DATA  •,  I  JCIOOl 

« 

'REAOIN  o**ti 

1  JCIOOl 

STOP 

I  JCIDOl 

END 

1  JLIUDI 

BLCCKOATA 

i  JCIDOl 

C0HHUN/TNF5C2/NC3S3(2) .XC3SDla.2).YC3SDI8.2)  , 

I  JCIOOl 

0 

FD0SA0(8.2I,FS0SA0(8  ,2 1  .FTDSAO I B ,2 ) . 

1  JCIODl 

• 

FA80CC(2)  ,ABSFCC(8.2t,ABSRCC(8.2),ABC2CCI2)  . 

I  JCIODl 

• 

FSSMCC (2  I .TSSKIR 18,2  l.SSSHIHIB ,2I,SSSH 1118,21, 

I  JCIOOl 

0 

FSAMCC (21 .TSAHIR  t3,2l,TSAHIZ(2l ,SSAMIF(3,2) 

I  JCIDOl 

C0MM0N/TNFSC3/NC3D0(2I ,XC300(8.2>,YC300e8,21 , 

I  JCIOOl 

• 

NCOMD(21,XCaMO(8,2l,YCCMOI8,2)  , 

I  JCIDOl 

» 

FCLWL (10.2 1 

I  JCIDOl 

DATA 

NC300  .NCQMO ,NC3S0/6«0/ 

I  JCIDOl 

DATA 

XC300,XC0M0,XC3SD/48»0./ 

I  JCIOOl 

DATA 

YC300  ,YC0MD ,YC3S0/48»0./ 

I  JCIDOl 

DATA 

FCLWL/20»0./ 

I  JCIOOl 

DATA 

FA0OCC,FSSMCC,FSAMCC/6«O./ 

I  JCIODl 

DATA 

TSSMI R.SSSMIK.SSSMIL/AB^.OOl/ 

I  JCIDDl 

DATA 

TSAMIR.TSAMIZ.SSAMI F/14».001/ 

I  JCIDOl 

DATA 

ABSFCC,ABSRCC,A8C2CC/34»1./ 

I  JCIODl 

End 

1  JCIODl 

BLOCK  DATA 

I  JCIDDl 

C0HM0N/TNFSC1/INA3F(8,2) . 1 NABR 18 ,2), iNAB2CZ) 

I  JCIOOl 

C0MKUN/TNFSC2/NC3SD(2I ,XC3S0(8,2),YC3S0I8,2) , 

1  JCIODl 

F00SA0(8,2I,FS0SA0(8  ,2I,FT0SAD(8,2I, 

I  JCIODl 

• 

FAB0CCI2I .ABSFCCIB .2I.ABSRCC(8.21,ABCZCC(2) , 

I  JCIDDl 

0 

FSSMCC(2I .TSSMIR (8,21, SSSMIMI 8,21, SSSM1L(8  ,21 , 

1  JCIDOl 

• 

FSAMCC(2) ,TSAMIR{3,2I,TSAHI2(2I ,SSAKIF(3,2I 

I  JCIODl 

COHMOfi/TNFSC3/NC300(21  ,XC300(8,2I  ,VC300(B,2I  , 

I  JCIOOl 

• 

NCCM0(2) ,X(QK0 (8,21, YCOHOI 8,21, 

I  JCIDOl 

e 

FCLWL  (10,2  1 

I  JCIOOl 

C0MM0N/TNFiC4/Nl  OLT ( 21 , X EOL Y ( 8 ,2 J , YE 01 Y( 8 ,2 , 2 ) , 

I  JCIOOl 

• 

JF.SC(8,3,2I,  IWAUT(8,21  ,IFPLS(e,21, 

I  JCIDOl 

« 

TrQP0(21 ,SfQ PO (8,21, CT  INF (8,21 

I  JCIOOl 

CDHMON/TNF  SC 5/NC SF 0 (2 1 , X Li F 0 ( 8 ,2 ) , YOSF 0 C 8  ,2 )  , 

I  JCIODl 

« 

NAAF  D  I  21  ,XAAr  0(8,2  1  ,YAAr  0(8,21  , 

1  JCIDOl 

» 

IIAII  D  (21  ,XAI  1  D(U,2I  ,YAri  018,21 

I  JCIIIUI 

DATA 

IHAIlF  ,lNAliP.,lNA|l//34<'()/ 

I  JLIOUl 

DATA 

HC3S0/2*0/ 

I  JCIDDl 

DATA 

XC3SD  ,YC3SD,f  OUSAD  ,f  SOSAD.f  T0SA0/8O»0./ 

I  JCIDOl 

DATA 

1  Am)CC,AbSf  CC  ,A('.SRtC,AI',CKC/3C«0./ 

I  JCIUOl 

DATA 

FSSKCC,TSSMIR,SSSI1IM,SS5MIL/.50*0./ 

I  JCIOOl 

DATA 

FSAHCC  ,TSAMIR,  TSAMI  /  ,SSAMIF/1<,«0./ 

I  JCIDOl 

DATA 

NC3D0,NcrjKD  ,NF  DLY,  JfSC  ,  1 W  AUT  ,  IF  PlS/86*  0/ 

I  JCIODl 

DATA 

XC3DD  ,YC3D0,XCCM0,YC0M0,XE0LY  ,YE0LY/11  2*0  ./ 

I  JCIOOl 

DATA 

FCLWL, TEA P0,5EaP0,CTIME/54»0./ 

I  JCIDOl 

DATA 

NCSFD  ,NAAFD,NAFF0/b«0/ 

I  JCIDOl 

DATA 

X&SFD,Y&SFD,XAAFD,YAAFO,XAFFO  ,VAFF0/9I>  *0  ./ 

I  JCIODl 

END 

I  JCIDDl 
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